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
6module fred1
7real, allocatable :: default_clocks(:)
8end module fred1
9
10module fred2
11real, allocatable :: locks(:)
12end module fred2
13
14program fred
15use fred1
16use fred2
17end program fred
18