blob: 36671fee2b114969185dd546c687eeb2e227b28d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
