Skip to content

Commit 619d619

Browse files
author
Carlos Une
committed
Rename C function is_dir to c_is_dir
1 parent 52cb72f commit 619d619

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/c.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#include <sys/stat.h>
22
#include <dirent.h>
33

4-
int is_dir(const char *path)
4+
int c_is_dir(const char *path)
55
{
66
struct stat m;
77
int r = stat(path, &m);

src/fpm_filesystem.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ function c_get_d_name(dir) result(r) bind(c, name="get_d_name")
4343
type(c_ptr) :: r
4444
end function c_get_d_name
4545

46-
function c_is_dir(path) result(r) bind(c, name="is_dir")
46+
function c_is_dir(path) result(r) bind(c, name="c_is_dir")
4747
import c_char, c_int
4848
character(kind=c_char), intent(in) :: path(*)
4949
integer(kind=c_int) :: r

0 commit comments

Comments
 (0)