From f0caa736e0fee49ee8680899ba4d17a6e33d6b10 Mon Sep 17 00:00:00 2001 From: LKedward Date: Fri, 18 Sep 2020 10:15:13 +0100 Subject: Add: example package with c code compilation --- 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 insertions(+) create mode 100644 test/example_packages/with_c/app/main.f90 create mode 100644 test/example_packages/with_c/fpm.toml create mode 100644 test/example_packages/with_c/src/c_code.c create mode 100644 test/example_packages/with_c/src/with_c.f90 (limited to 'test') 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 +/* + * 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 -- cgit v1.2.3 From 35f4779647ddab4ef7edef26b4e0027004d6c756 Mon Sep 17 00:00:00 2001 From: LKedward Date: Fri, 18 Sep 2020 11:38:13 +0100 Subject: Add: example package with submodules --- test/example_packages/submodules/fpm.toml | 1 + test/example_packages/submodules/src/child1.f90 | 16 ++++++++++++++++ test/example_packages/submodules/src/child2.f90 | 10 ++++++++++ test/example_packages/submodules/src/grandchild.f90 | 10 ++++++++++ test/example_packages/submodules/src/parent.f90 | 15 +++++++++++++++ 5 files changed, 52 insertions(+) create mode 100644 test/example_packages/submodules/fpm.toml create mode 100644 test/example_packages/submodules/src/child1.f90 create mode 100644 test/example_packages/submodules/src/child2.f90 create mode 100644 test/example_packages/submodules/src/grandchild.f90 create mode 100644 test/example_packages/submodules/src/parent.f90 (limited to 'test') diff --git a/test/example_packages/submodules/fpm.toml b/test/example_packages/submodules/fpm.toml new file mode 100644 index 0000000..cfc3d61 --- /dev/null +++ b/test/example_packages/submodules/fpm.toml @@ -0,0 +1 @@ +name = "submodules" diff --git a/test/example_packages/submodules/src/child1.f90 b/test/example_packages/submodules/src/child1.f90 new file mode 100644 index 0000000..dbd0fa5 --- /dev/null +++ b/test/example_packages/submodules/src/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 = 1 +end procedure my_sub1 + +end submodule child1 \ No newline at end of file diff --git a/test/example_packages/submodules/src/child2.f90 b/test/example_packages/submodules/src/child2.f90 new file mode 100644 index 0000000..179cc32 --- /dev/null +++ b/test/example_packages/submodules/src/child2.f90 @@ -0,0 +1,10 @@ +submodule(parent) child2 +implicit none + +contains + +module procedure my_sub2 + a = 2 +end procedure my_sub2 + +end submodule child2 \ No newline at end of file diff --git a/test/example_packages/submodules/src/grandchild.f90 b/test/example_packages/submodules/src/grandchild.f90 new file mode 100644 index 0000000..8c5aa17 --- /dev/null +++ b/test/example_packages/submodules/src/grandchild.f90 @@ -0,0 +1,10 @@ +submodule(parent:child1) grandchild +implicit none + +contains + +module procedure my_fun + b = 2 +end procedure my_fun + +end submodule grandchild \ No newline at end of file diff --git a/test/example_packages/submodules/src/parent.f90 b/test/example_packages/submodules/src/parent.f90 new file mode 100644 index 0000000..570827c --- /dev/null +++ b/test/example_packages/submodules/src/parent.f90 @@ -0,0 +1,15 @@ +module parent +implicit none + +interface + + module subroutine my_sub1(a) + integer, intent(out) :: a + end subroutine my_sub1 + + module subroutine my_sub2(a) + integer, intent(out) :: a + end subroutine my_sub2 +end interface + +end module parent \ No newline at end of file -- cgit v1.2.3 From 02ffa065b8a84828645ef13fd3447d346f23e257 Mon Sep 17 00:00:00 2001 From: LKedward Date: Fri, 18 Sep 2020 11:39:33 +0100 Subject: Add: README for example packages --- test/example_packages/README.md | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 test/example_packages/README.md (limited to 'test') diff --git a/test/example_packages/README.md b/test/example_packages/README.md new file mode 100644 index 0000000..086b967 --- /dev/null +++ b/test/example_packages/README.md @@ -0,0 +1,17 @@ +# Example packages + +See the table below for a list of the example packages provided in this directory including +the features demonstrated in each package and which versions of fpm are supported. + + +| Name | Features | Bootstrap (Haskell) fpm | fpm | +|------------------|---------------------------------------------------------------|:-----------------------:|:---:| +| circular_example | Local path dependency; circular dependency | Y | N | +| circular_test | Local path dependency; circular dependency | Y | N | +| hello_complex | Non-standard directory layout; multiple tests and executables | Y | Y | +| hello_fpm | App-only; local path dependency | Y | N | +| hello_world | App-only | Y | Y | +| makefile_complex | External build command (makefile); local path dependency | Y | N | +| submodules | Lib-only; submodules (3 levels) | N | Y | +| with_c | Compile with `c` source files | N | Y | +| with_makefile | External build command (makefile) | Y | N | \ No newline at end of file -- cgit v1.2.3 From f2a51196aa33fca3ae19a02a601dfa190fe14d80 Mon Sep 17 00:00:00 2001 From: LKedward Date: Sat, 19 Sep 2020 11:28:45 +0100 Subject: Add: example package with single source program and module --- test/example_packages/README.md | 23 +++++++++++----------- .../program_with_module/app/main.f90 | 10 ++++++++++ test/example_packages/program_with_module/fpm.toml | 1 + 3 files changed, 23 insertions(+), 11 deletions(-) create mode 100644 test/example_packages/program_with_module/app/main.f90 create mode 100644 test/example_packages/program_with_module/fpm.toml (limited to 'test') diff --git a/test/example_packages/README.md b/test/example_packages/README.md index 086b967..06de927 100644 --- a/test/example_packages/README.md +++ b/test/example_packages/README.md @@ -4,14 +4,15 @@ See the table below for a list of the example packages provided in this director the features demonstrated in each package and which versions of fpm are supported. -| Name | Features | Bootstrap (Haskell) fpm | fpm | -|------------------|---------------------------------------------------------------|:-----------------------:|:---:| -| circular_example | Local path dependency; circular dependency | Y | N | -| circular_test | Local path dependency; circular dependency | Y | N | -| hello_complex | Non-standard directory layout; multiple tests and executables | Y | Y | -| hello_fpm | App-only; local path dependency | Y | N | -| hello_world | App-only | Y | Y | -| makefile_complex | External build command (makefile); local path dependency | Y | N | -| submodules | Lib-only; submodules (3 levels) | N | Y | -| with_c | Compile with `c` source files | N | Y | -| with_makefile | External build command (makefile) | Y | N | \ No newline at end of file +| Name | Features | Bootstrap (Haskell) fpm | fpm | +|---------------------|---------------------------------------------------------------|:-----------------------:|:---:| +| circular_example | Local path dependency; circular dependency | Y | N | +| circular_test | Local path dependency; circular dependency | Y | N | +| hello_complex | Non-standard directory layout; multiple tests and executables | Y | Y | +| hello_fpm | App-only; local path dependency | Y | N | +| hello_world | App-only | Y | Y | +| makefile_complex | External build command (makefile); local path dependency | Y | N | +| program_with_module | App-only; module+program in single source file | Y | Y | +| submodules | Lib-only; submodules (3 levels) | N | Y | +| with_c | Compile with `c` source files | N | Y | +| with_makefile | External build command (makefile) | Y | N | \ No newline at end of file diff --git a/test/example_packages/program_with_module/app/main.f90 b/test/example_packages/program_with_module/app/main.f90 new file mode 100644 index 0000000..59441f0 --- /dev/null +++ b/test/example_packages/program_with_module/app/main.f90 @@ -0,0 +1,10 @@ +module greet_m + implicit none + character(*), parameter :: greeting = 'Hello, fpm!' +end module greet_m + +program program_with_module + use greet_m, only: greeting + implicit none + print *, greeting +end program program_with_module diff --git a/test/example_packages/program_with_module/fpm.toml b/test/example_packages/program_with_module/fpm.toml new file mode 100644 index 0000000..bce6aa2 --- /dev/null +++ b/test/example_packages/program_with_module/fpm.toml @@ -0,0 +1 @@ +name = "Program_with_module" -- cgit v1.2.3