gcc/testsuite/gfortran.dg/allocatable_module_1.f90

   1 ! { dg-do compile }
   2 ! PR 36934 - this used to give a spurious error and segfault with a
   3 ! patch that wasn't complete
   4 ! Test case contributed by Philip Mason
   5
   6 module fred1
   7 real, allocatable :: default_clocks(:)
   8 end module fred1
   9
  10 module fred2
  11 real, allocatable :: locks(:)
  12 end module fred2
  13
  14 program fred
  15 use fred1
  16 use fred2
  17 end program fred
  18 ! { dg-final { cleanup-modules "fred1 fred2" } }