blob: ab041fcf4f5ac40cce2e8545be134b20f761a520 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
