Skip to content

Commit

Permalink
Revert some changes in src/framework/posix.F90 introduce from last
Browse files Browse the repository at this point in the history
cherry pick commit.
  • Loading branch information
BinLiu-NOAA committed Apr 9, 2024
1 parent 8600b60 commit 77eaddc
Showing 1 changed file with 0 additions and 28 deletions.
28 changes: 0 additions & 28 deletions src/framework/posix.F90
Original file line number Diff line number Diff line change
Expand Up @@ -52,34 +52,6 @@ function chmod_posix(path, mode) result(rc) bind(c, name="chmod")
!< Function return code
end function chmod_posix

!> C interface to POSIX mkdir()
!! Users should use the Fortran-defined mkdir() function.
function mkdir_posix(path, mode) result(rc) bind(c, name="mkdir")
! #include <sys/stat.h>
! int mkdir(const char *path, mode_t mode);
import :: c_char, c_int

character(kind=c_char), dimension(*), intent(in) :: path
!< Zero-delimited file path
integer(kind=c_int), value, intent(in) :: mode
!< File permission to be assigned to file.
integer(kind=c_int) :: rc
!< Function return code
end function mkdir_posix

!> C interface to POSIX stat()
!! Users should use the Fortran-defined stat() function.
function stat_posix(path, buf) result(rc) bind(c, name="stat")
import :: c_char, stat_buf, c_int

character(kind=c_char), dimension(*), intent(in) :: path
!< Pathname of a POSIX file
type(stat_buf), intent(inout) :: buf
!< Information describing the file if it exists
integer(kind=c_int) :: rc
!< Function return code
end function

!> C interface to POSIX signal()
!! Users should use the Fortran-defined signal() function.
function signal_posix(sig, func) result(handle) bind(c, name="signal")
Expand Down

0 comments on commit 77eaddc

Please sign in to comment.