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
7 real, allocatable :: default_clocks(:)
11 real, allocatable :: locks(:)
18 ! { dg-final { cleanup-modules "fred1 fred2" } }