blob: ab041fcf4f5ac40cce2e8545be134b20f761a520 [file] [log] [blame]
! { dg-do compile }
! Tests fix for PR15976
!
! Error message update with patch for PR fortran/83633
!
module sd
integer, parameter :: n = 20
integer :: i(n)
integer :: j(m) ! { dg-error "array with nonconstant bounds" }
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