From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gfortran.dg/nested_modules_1.f90 | 45 ++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/nested_modules_1.f90 (limited to 'gcc/testsuite/gfortran.dg/nested_modules_1.f90') diff --git a/gcc/testsuite/gfortran.dg/nested_modules_1.f90 b/gcc/testsuite/gfortran.dg/nested_modules_1.f90 new file mode 100644 index 000000000..a0bd96361 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/nested_modules_1.f90 @@ -0,0 +1,45 @@ +! { dg-do run } +! +! This tests that common blocks function with multiply nested modules. +! Contributed by Paul Thomas +! + module mod0 + complex(kind=8) FOO, KANGA + common /bar/ FOO, KANGA + contains + subroutine eyeore () + FOO = FOO + (1.0d0, 0.0d0) + KANGA = KANGA - (1.0d0, 0.0d0) + end subroutine eyeore + end module mod0 + module mod1 + use mod0 + complex ROBIN + common/owl/ROBIN + end module mod1 + module mod2 + use mod0 + use mod1 + real(kind=8) re1, im1, re2, im2, re, im + common /bar/ re1, im1, re2, im2 + equivalence (re1, re), (im1, im) + contains + subroutine tigger (w) + complex(kind=8) w + if (FOO.ne.(1.0d0, 1.0d0)) call abort () + if (KANGA.ne.(-1.0d0, -1.0d0)) call abort () + if (ROBIN.ne.(99.0d0, 99.0d0)) CALL abort () + if (w.ne.cmplx(re,im)) call abort () + end subroutine tigger + end module mod2 + + use mod2 + use mod0, only: w=>foo + w = (0.0d0, 1.0d0) ! Was foo but this is forbidden (11.3.2) + KANGA = (0.0d0, -1.0d0) + ROBIN = (99.0d0, 99.0d0) + call eyeore () + call tigger (w) + end + +! { dg-final { cleanup-modules "mod0 mod1 mod2" } } -- cgit v1.2.3