gcc/testsuite/gfortran.dg/allocatable_module_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile }
! PR 36934 - this used to give a spurious error and segfault with a
! patch that wasn't complete
! Test case contributed by Philip Mason

module fred1
real, allocatable :: default_clocks(:)
end module fred1

module fred2
real, allocatable :: locks(:)
end module fred2

program fred
use fred1
use fred2
end program fred
! { dg-final { cleanup-modules "fred1 fred2" } }