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