1 files changed, 45 insertions, 0 deletions
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  <pault@gcc.gnu.org>
+!
+       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" } }