From b5b16cf826d468e79b4087500192a4a9e07c140f Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 14 Oct 2020 09:24:55 -0500
Subject: Better organize example packages and bootstrap tests

---
 test/example_packages/with_c/app/main.f90   | 10 ----------
 test/example_packages/with_c/fpm.toml       |  1 -
 test/example_packages/with_c/src/c_code.c   | 10 ----------
 test/example_packages/with_c/src/with_c.f90 | 26 --------------------------
 4 files changed, 47 deletions(-)
 delete mode 100644 test/example_packages/with_c/app/main.f90
 delete mode 100644 test/example_packages/with_c/fpm.toml
 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')

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
-- 
cgit v1.2.3