gcc/testsuite/gfortran.dg/common_12.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/39594
   4 !
   5 ! Contributed by Peter Knowles and reduced by Jakub Jelinek.
   6 !
   7 module pr39594
   8   implicit double precision(z)
   9   common /z/ z0,z1,z2,z3,z4,z5,z6,z7
  10 contains
  11   subroutine foo
  12     implicit double precision(z)
  13     common /z/ z0,z1,z2,z3,z4,z5,z6,z7
  14     call bar(z0)
  15   end subroutine foo
  16 end module
  17
  18 ! { dg-final { cleanup-modules "pr39594" } }