diff options
| author | Michael Hirsch, Ph.D <scivision@users.noreply.github.com> | 2019-06-23 11:05:44 -0400 |
|---|---|---|
| committer | Jussi Pakkanen <jpakkane@gmail.com> | 2019-06-23 21:11:16 +0300 |
| commit | 9dbd5f129b770d365caaed6a805fb43de8100682 (patch) | |
| tree | d05759714fdc690132bdfca6577fe86ffc3cc9a1 | |
| parent | c8d144b064169f5e7b34b76c95a585d9e4ca5f44 (diff) | |
| download | meson-9dbd5f129b770d365caaed6a805fb43de8100682.zip meson-9dbd5f129b770d365caaed6a805fb43de8100682.tar.gz meson-9dbd5f129b770d365caaed6a805fb43de8100682.tar.bz2 | |
fortran submodule checks
fortran submodule checks
| -rw-r--r-- | test cases/fortran/12 submodule/a2.f90 | 4 | ||||
| -rw-r--r-- | test cases/fortran/12 submodule/a3.f90 | 3 | ||||
| -rw-r--r-- | test cases/fortran/12 submodule/meson.build | 3 |
3 files changed, 7 insertions, 3 deletions
diff --git a/test cases/fortran/12 submodule/a2.f90 b/test cases/fortran/12 submodule/a2.f90 index b3ce1f0..ba8a0dd 100644 --- a/test cases/fortran/12 submodule/a2.f90 +++ b/test cases/fortran/12 submodule/a2.f90 @@ -1,4 +1,5 @@ -submodule (a1) a2 +! testing no space between submodule() +submodule(a1) a2 contains @@ -6,5 +7,4 @@ module procedure pi2tau pi2tau = 2*pi end procedure pi2tau - end submodule a2 diff --git a/test cases/fortran/12 submodule/a3.f90 b/test cases/fortran/12 submodule/a3.f90 index 21aa355..3881675 100644 --- a/test cases/fortran/12 submodule/a3.f90 +++ b/test cases/fortran/12 submodule/a3.f90 @@ -1,3 +1,6 @@ +! submodule (bogus) foo +! testing don't detect commented submodule + submodule (a1:a2) a3 ! testing inline comment contains diff --git a/test cases/fortran/12 submodule/meson.build b/test cases/fortran/12 submodule/meson.build index b3ed9de..624e567 100644 --- a/test cases/fortran/12 submodule/meson.build +++ b/test cases/fortran/12 submodule/meson.build @@ -1,4 +1,5 @@ -project('submodule single level', 'fortran') +project('submodule single level', 'fortran', + meson_version: '>= 0.50.0') hier2 = executable('single', 'parent.f90', 'child.f90') test('single-level hierarchy', hier2) |