From b5b16cf826d468e79b4087500192a4a9e07c140f Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Wed, 14 Oct 2020 09:24:55 -0500 Subject: Better organize example packages and bootstrap tests --- test/example_packages/with_c/src/c_code.c | 10 ---------- test/example_packages/with_c/src/with_c.f90 | 26 -------------------------- 2 files changed, 36 deletions(-) delete mode 100644 test/example_packages/with_c/src/c_code.c delete mode 100644 test/example_packages/with_c/src/with_c.f90 (limited to 'test/example_packages/with_c/src') diff --git a/test/example_packages/with_c/src/c_code.c b/test/example_packages/with_c/src/c_code.c deleted file mode 100644 index 44604f0..0000000 --- a/test/example_packages/with_c/src/c_code.c +++ /dev/null @@ -1,10 +0,0 @@ -#include -/* - * Decides whether a given file name is a directory. - * return 1 if file exists and is a directory - * Source (Public domain): https://github.com/urbanjost/M_system - */ -int my_isdir (const char *path) { - struct stat sb; - return stat(path, &sb) == 0 && S_ISDIR (sb.st_mode); -} \ No newline at end of file diff --git a/test/example_packages/with_c/src/with_c.f90 b/test/example_packages/with_c/src/with_c.f90 deleted file mode 100644 index edd839e..0000000 --- a/test/example_packages/with_c/src/with_c.f90 +++ /dev/null @@ -1,26 +0,0 @@ -module with_c - use iso_c_binding, only: c_char, c_int, c_null_char - implicit none - -contains - - function system_isdir(dirname) - ! Source (Public domain): https://github.com/urbanjost/M_system - ! - implicit none - character(len=*),intent(in) :: dirname - logical :: system_isdir - - interface - function c_isdir(dirname) bind (C,name="my_isdir") result (c_ierr) - import c_char,c_int - character(kind=c_char,len=1),intent(in) :: dirname(*) - integer(kind=c_int) :: c_ierr - end function c_isdir - end interface - - system_isdir= c_isdir(trim(dirname)//c_null_char) == 1 - - end function system_isdir - -end module with_c \ No newline at end of file -- cgit v1.2.3