diff options
| author | Jussi Pakkanen <jpakkane@gmail.com> | 2014-08-08 13:35:46 +0300 |
|---|---|---|
| committer | Jussi Pakkanen <jpakkane@gmail.com> | 2014-08-08 13:35:46 +0300 |
| commit | f3d0778403a989e4bbd0f5fbff332e5df4f584bb (patch) | |
| tree | 09d30e9a284c945d210611ef5bb75aea734c9063 /test cases/fortran/3 module procedure | |
| parent | a5863477f8fff72f1c5f782e5a7e9d07a46f3b4d (diff) | |
| download | meson-f3d0778403a989e4bbd0f5fbff332e5df4f584bb.zip meson-f3d0778403a989e4bbd0f5fbff332e5df4f584bb.tar.gz meson-f3d0778403a989e4bbd0f5fbff332e5df4f584bb.tar.bz2 | |
Handle Fortran's MODULE PROCEDURE construct.
Diffstat (limited to 'test cases/fortran/3 module procedure')
| -rw-r--r-- | test cases/fortran/3 module procedure/meson.build | 4 | ||||
| -rw-r--r-- | test cases/fortran/3 module procedure/prog.f90 | 15 |
2 files changed, 19 insertions, 0 deletions
diff --git a/test cases/fortran/3 module procedure/meson.build b/test cases/fortran/3 module procedure/meson.build new file mode 100644 index 0000000..f05a70c --- /dev/null +++ b/test cases/fortran/3 module procedure/meson.build @@ -0,0 +1,4 @@ +project('use in same file', 'fortran') + +e = executable('prog', 'prog.f90') +test('simple', e) diff --git a/test cases/fortran/3 module procedure/prog.f90 b/test cases/fortran/3 module procedure/prog.f90 new file mode 100644 index 0000000..4899d8b --- /dev/null +++ b/test cases/fortran/3 module procedure/prog.f90 @@ -0,0 +1,15 @@ +MODULE Circle + REAL, PARAMETER :: Pi = 3.1415927 + REAL :: radius + INTERFACE DEFAULT + MODULE PROCEDURE func + END INTERFACE + CONTAINS + FUNCTION func() + func = 0 + END FUNCTION +END MODULE Circle + +PROGRAM PROG + print *, "Module procedure is working." +END PROGRAM PROG |