aboutsummaryrefslogtreecommitdiff
path: root/example_packages/with_c/app/main.f90
diff options
context:
space:
mode:
Diffstat (limited to 'example_packages/with_c/app/main.f90')
-rw-r--r--example_packages/with_c/app/main.f9010
1 files changed, 10 insertions, 0 deletions
diff --git a/example_packages/with_c/app/main.f90 b/example_packages/with_c/app/main.f90
new file mode 100644
index 0000000..4d3174b
--- /dev/null
+++ b/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