diff options
| author | Michael Hirsch, Ph.D <scivision@users.noreply.github.com> | 2019-06-23 09:40:27 -0400 |
|---|---|---|
| committer | Jussi Pakkanen <jpakkane@gmail.com> | 2019-06-23 17:27:46 +0300 |
| commit | ef53107f14a272784e3fa2b0daa67cbba6f5ac56 (patch) | |
| tree | cb455b2358b6eb2b8bfa571deed3130befbd58fe /test cases | |
| parent | 9042130e9a990497c0e53a43d2750fb907507f09 (diff) | |
| download | meson-ef53107f14a272784e3fa2b0daa67cbba6f5ac56.zip meson-ef53107f14a272784e3fa2b0daa67cbba6f5ac56.tar.gz meson-ef53107f14a272784e3fa2b0daa67cbba6f5ac56.tar.bz2 | |
BUGFIX: Fortran module regex handle more edge cases
Diffstat (limited to 'test cases')
| -rw-r--r-- | test cases/fortran/12 submodule/child.f90 | 4 | ||||
| -rw-r--r-- | test cases/fortran/12 submodule/parent.f90 | 5 | ||||
| -rw-r--r-- | test cases/fortran/2 modules/mymod.f90 | 2 |
3 files changed, 11 insertions, 0 deletions
diff --git a/test cases/fortran/12 submodule/child.f90 b/test cases/fortran/12 submodule/child.f90 index 45b5b41..dc076ec 100644 --- a/test cases/fortran/12 submodule/child.f90 +++ b/test cases/fortran/12 submodule/child.f90 @@ -6,5 +6,9 @@ module procedure pi2tau pi2tau = 2*pi end procedure pi2tau +module procedure good +print *, 'Good!' +end procedure good + end submodule parent diff --git a/test cases/fortran/12 submodule/parent.f90 b/test cases/fortran/12 submodule/parent.f90 index 9d087d0..77c8fb4 100644 --- a/test cases/fortran/12 submodule/parent.f90 +++ b/test cases/fortran/12 submodule/parent.f90 @@ -6,6 +6,9 @@ interface module elemental real function pi2tau(pi) real, intent(in) :: pi end function pi2tau + +module subroutine good() +end subroutine good end interface end module parent @@ -17,4 +20,6 @@ tau = pi2tau(pi) print *,'pi=',pi, 'tau=', tau +call good() + end program diff --git a/test cases/fortran/2 modules/mymod.f90 b/test cases/fortran/2 modules/mymod.f90 index f8e7929..a45f5c9 100644 --- a/test cases/fortran/2 modules/mymod.f90 +++ b/test cases/fortran/2 modules/mymod.f90 @@ -1,3 +1,5 @@ +! module circle to be sure module regex doesn't allow commented modules + module circle implicit none |