URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [automatic_module_variable.f90] - Rev 302
Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests fix for PR15976
!
module sd
integer, parameter :: n = 20
integer :: i(n)
integer :: j(m) ! { dg-error "must have constant shape" }
integer, pointer :: p(:)
integer, allocatable :: q(:)
contains
function init (x, l)
integer :: x(l)
integer :: init(l)
init = x
end function init
end module sd
! { dg-final { cleanup-modules "sd" } }