blob: 1970824a94653ddd04651a86b9a86e93324d30ae (
plain)
1
2
3
4
5
6
7
|
! { dg-do compile }
! PR fortran/91641
! Code conyributed by Gerhard Steinmetz
program p
real, pointer :: z(:)
print *, is_contiguous (null(z)) ! { dg-error "shall be an associated" }
end
|