blob: 9ae44ccb8235651b3725638e6d3d62547ed1aa60 (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do compile }
! PR fortran/70853
! Contributed by Gerhard Steinmetz
program p
real, pointer :: z(:)
z(1:2) => null() ! { dg-error "pointer target shall not be NULL" }
z(2:1) => null() ! { dg-error "pointer target shall not be NULL" }
end
|
