Merge pull request #743 from LKedward/fix-exe-linking

Fix executables linking

Author: LKedward

ci/run_tests.sh

@@ -92,6 +92,10 @@ pushd submodules
 "$fpm" build
 popd
 
+pushd app_with_submodule
+"$fpm" run --all
+popd
+
 pushd program_with_module
 "$fpm" build
 "$fpm" run --target Program_with_module
@@ -118,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,6 +6,8 @@ the features demonstrated in each package and which versions of fpm are supporte
 
 | Name                | Features                                                      | Bootstrap (Haskell) fpm | fpm |
 |---------------------|---------------------------------------------------------------|:-----------------------:|:---:|
+| 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  |

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"

example_packages/app_with_submodule/.gitignore

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

example_packages/app_with_submodule/app/app1/child1.f90

@@ -0,0 +1,16 @@
+submodule(parent) child1
+implicit none
+
+interface
+    module function my_fun() result (b)
+        integer :: b
+    end function my_fun
+end interface
+
+contains
+
+module procedure my_sub1
+    a = my_fun()
+end procedure my_sub1
+
+end submodule child1

example_packages/app_with_submodule/app/app1/grandchild.f90

@@ -0,0 +1,10 @@
+submodule(parent:child1) grandchild
+implicit none
+
+contains
+
+module procedure my_fun
+    b = 1
+end procedure my_fun
+
+end submodule grandchild

example_packages/app_with_submodule/app/app1/main1.f90

@@ -0,0 +1,14 @@
+program test
+use parent
+implicit none
+
+integer :: a
+
+call my_sub1(a)
+
+if (a /= 1) then
+    write(*,*) 'FAILED: Unexpected value of a'
+    stop 1
+end if
+
+end program test