Add: example package with c code compilation

6 files changed, 62 insertions, 1 deletions

diff --git a/ci/run_tests.bat b/ci/run_tests.bat
index 9435e0d..2aa27e7 100755
--- a/ci/run_tests.bat
+++ b/ci/run_tests.bat
@@ -41,4 +41,14 @@ if errorlevel 1 exit 1
 if errorlevel 1 exit 1
 
 .\build\gfortran_debug\test\farewell_test
+if errorlevel 1 exit 1
+
+
+cd ..\with_c
+if errorlevel 1 exit 1
+
+..\..\..\fpm\build\gfortran_debug\app\fpm build
+if errorlevel 1 exit 1
+
+.\build\gfortran_debug\app\with_c
 if errorlevel 1 exit 1
\ No newline at end of file
diff --git a/ci/run_tests.sh b/ci/run_tests.sh
index 3033c2a..ea29da8 100755
--- a/ci/run_tests.sh
+++ b/ci/run_tests.sh
@@ -17,4 +17,8 @@ cd ../hello_complex
 ./build/gfortran_debug/app/say_Hello
 ./build/gfortran_debug/app/say_goodbye
 ./build/gfortran_debug/test/greet_test
-./build/gfortran_debug/test/farewell_test
\ No newline at end of file
+./build/gfortran_debug/test/farewell_test
+
+cd ../with_c
+../../../fpm/build/gfortran_debug/app/fpm build
+./build/gfortran_debug/app/with_c
\ No newline at end of file
diff --git a/test/example_packages/with_c/app/main.f90 b/test/example_packages/with_c/app/main.f90
new file mode 100644
index 0000000..4d3174b
--- /dev/null
+++ b/test/example_packages/with_c/app/main.f90
@@ -0,0 +1,10 @@
+program with_c_app
+use with_c
+implicit none
+
+write(*,*) "isdir('app') = ", system_isdir('app')
+write(*,*) "isdir('src') = ", system_isdir('src')
+write(*,*) "isdir('test') = ", system_isdir('test')
+write(*,*) "isdir('bench') = ", system_isdir('bench')
+
+end program with_c_app
\ No newline at end of file
diff --git a/test/example_packages/with_c/fpm.toml b/test/example_packages/with_c/fpm.toml
new file mode 100644
index 0000000..97e3110
--- /dev/null
+++ b/test/example_packages/with_c/fpm.toml
@@ -0,0 +1 @@
+name = "with_c"
diff --git a/test/example_packages/with_c/src/c_code.c b/test/example_packages/with_c/src/c_code.c
new file mode 100644
index 0000000..44604f0
--- /dev/null
+++ b/test/example_packages/with_c/src/c_code.c
@@ -0,0 +1,10 @@
+#include <sys/stat.h>
+/*
+ *  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
new file mode 100644
index 0000000..edd839e
--- /dev/null
+++ b/test/example_packages/with_c/src/with_c.f90
@@ -0,0 +1,26 @@
+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