diff options
| author | Brad Richardson <brichardson@structint.com> | 2020-02-27 21:01:13 -0800 |
|---|---|---|
| committer | Brad Richardson <brichardson@structint.com> | 2020-02-27 21:01:13 -0800 |
| commit | d4c0aea26050b32bf394eabe91c95ab56113ce1a (patch) | |
| tree | bd662532554e059fdcc782af8c9b840c5ee68a7d /example_project | |
| parent | 775841b8437adf4f400a21fa939156dc6ef48cc2 (diff) | |
| download | fpm-d4c0aea26050b32bf394eabe91c95ab56113ce1a.tar.gz fpm-d4c0aea26050b32bf394eabe91c95ab56113ce1a.zip | |
Enable building executables
Diffstat (limited to 'example_project')
| -rw-r--r-- | example_project/app/hello_world.f90 | 7 | ||||
| -rw-r--r-- | example_project/src/hello_m.f90 | 12 |
2 files changed, 19 insertions, 0 deletions
diff --git a/example_project/app/hello_world.f90 b/example_project/app/hello_world.f90 new file mode 100644 index 0000000..b95062d --- /dev/null +++ b/example_project/app/hello_world.f90 @@ -0,0 +1,7 @@ +program hello_world + use hello_m, only: sayHello + + implicit none + + call sayHello("World") +end program hello_world diff --git a/example_project/src/hello_m.f90 b/example_project/src/hello_m.f90 new file mode 100644 index 0000000..a341602 --- /dev/null +++ b/example_project/src/hello_m.f90 @@ -0,0 +1,12 @@ +module hello_m + implicit none + private + + public :: sayHello +contains + subroutine sayHello(name) + character(len=*), intent(in) :: name + + print *, "Hello, " // name // "!" + end subroutine sayHello +end module hello_m |