URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [allocatable_module_1.f90] - Rev 516
Compare with Previous | Blame | View Log
! { 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
! { dg-final { cleanup-modules "fred1 fred2" } }