meson/test cases/fortran/12 submodule/a2.f90

mirror of https://gitlab.com/qemu-project/meson.git
! testing no space between submodule()
submodule(a1) a2

contains

module procedure pi2tau
  pi2tau = 2*pi
end procedure pi2tau

end submodule a2
fortran submodule checks fortran submodule checks 2019-06-23 23:05:44 +08:00			`! testing no space between submodule()`
			`submodule(a1) a2`
Fortran 2008 submodule (#4874) 2019-02-06 05:41:44 +08:00
			`contains`

			`module procedure pi2tau`
			`pi2tau = 2*pi`
			`end procedure pi2tau`

			`end submodule a2`