! { 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