diff options
| -rw-r--r-- | src/c.c | 2 | ||||
| -rw-r--r-- | src/fpm_filesystem.F90 | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -1,7 +1,7 @@ #include <sys/stat.h> #include <dirent.h> -int is_dir(const char *path) +int c_is_dir(const char *path) { struct stat m; int r = stat(path, &m); diff --git a/src/fpm_filesystem.F90 b/src/fpm_filesystem.F90 index 7b70ebe..9ae95cc 100644 --- a/src/fpm_filesystem.F90 +++ b/src/fpm_filesystem.F90 @@ -43,7 +43,7 @@ use,intrinsic :: iso_fortran_env, only : stdin=>input_unit, stdout=>output_unit, type(c_ptr) :: r end function c_get_d_name - function c_is_dir(path) result(r) bind(c, name="is_dir") + function c_is_dir(path) result(r) bind(c, name="c_is_dir") import c_char, c_int character(kind=c_char), intent(in) :: path(*) integer(kind=c_int) :: r |