Merge pull request #213 from everythingfunctional/bootstrap_submodule_support

Bootstrap submodule support

4 files changed, 0 insertions, 47 deletions

diff --git a/test/example_packages/with_c/app/main.f90 b/test/example_packages/with_c/app/main.f90
deleted file mode 100644
index 4d3174b..0000000
--- a/test/example_packages/with_c/app/main.f90
+++ /dev/null
@@ -1,10 +0,0 @@
-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
deleted file mode 100644
index 97e3110..0000000
--- a/test/example_packages/with_c/fpm.toml
+++ /dev/null
@@ -1 +0,0 @@
-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
deleted file mode 100644
index 44604f0..0000000
--- a/test/example_packages/with_c/src/c_code.c
+++ /dev/null
@@ -1,10 +0,0 @@
-#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
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