diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 09:24:55 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 09:24:55 -0500 |
| commit | b5b16cf826d468e79b4087500192a4a9e07c140f (patch) | |
| tree | 1f615ee9ed6500bb1f6964ef2af0478b2fe51e4e /test/example_packages/with_c/src/with_c.f90 | |
| parent | d3a65e36b28808c2c51ae41fc107f1179e27a08c (diff) | |
| download | fpm-b5b16cf826d468e79b4087500192a4a9e07c140f.tar.gz fpm-b5b16cf826d468e79b4087500192a4a9e07c140f.zip | |
Better organize example packages and bootstrap tests
Diffstat (limited to 'test/example_packages/with_c/src/with_c.f90')
| -rw-r--r-- | test/example_packages/with_c/src/with_c.f90 | 26 |
1 files changed, 0 insertions, 26 deletions
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 |