From 619d619bf5754437401c314521fd48ecd557a5a0 Mon Sep 17 00:00:00 2001 From: Carlos Une Date: Sun, 11 Jul 2021 11:05:15 -0300 Subject: Rename C function is_dir to c_is_dir --- src/c.c | 2 +- src/fpm_filesystem.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c.c b/src/c.c index c54469a..d9048a9 100644 --- a/src/c.c +++ b/src/c.c @@ -1,7 +1,7 @@ #include #include -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 -- cgit v1.2.3