blob: a996715684e4dfc0f7568c80f69ebca60ad5931c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
! PR fortran/92990
! Verify fix of error message for NULLIFY vs. pointer assignment (PR70853)
program p
integer, pointer :: x(:)
type t
integer, pointer :: y(:)
end type t
type(t) :: z
nullify (x(1:2)) ! { dg-error "does not allow bounds remapping" }
nullify (z%y(:)) ! { dg-error "does not allow bounds remapping" }
end
|