Add: test package for app with c files

Author: LKedward

ci/run_tests.sh

@@ -122,6 +122,10 @@ pushd c_main
 "$fpm" run
 popd
 
+pushd app_with_c
+"$fpm" run
+popd
+
 pushd hello_fpm_path
 "$fpm" run
 popd

example_packages/README.md

@@ -6,8 +6,9 @@ the features demonstrated in each package and which versions of fpm are supporte
 
 | Name                | Features                                                      | Bootstrap (Haskell) fpm | fpm |
 |---------------------|---------------------------------------------------------------|:-----------------------:|:---:|
-| auto_discovery_off  | Default layout with auto-discovery disabled                   |            N            |  Y  |
+| app_with_c          | C files located in app directory (not src)                    |            N            |  Y  |
 | app_with_submodule  | Submodules located in app directory (not src)                 |            N            |  Y  |
+| auto_discovery_off  | Default layout with auto-discovery disabled                   |            N            |  Y  |
 | c_header_only       | C header-only library                                         |            N            |  Y  |
 | c_includes          | C library with c include directory and dependency includes    |            N            |  Y  |
 | circular_example    | Local path dependency; circular dependency                    |            Y            |  Y  |

example_packages/app_with_c/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/app_with_c/app/c_code.c

@@ -0,0 +1,11 @@
+#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);
+}

example_packages/app_with_c/app/main.f90

@@ -0,0 +1,37 @@
+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
+
+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

example_packages/app_with_c/fpm.toml

@@ -0,0 +1 @@
+name = "with_c"