blob: fd50e3e1c186d8605e16f80c3e2d750f602bf363 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
! { dg-options "-std=f95" }
! PR fortran/78278
program p
character, pointer :: x => null()
data x /null()/ ! { dg-error "GNU Extension: re-initialization" }
print *, associated(x)
end
subroutine foo
real :: x = 42
data x /0/ ! { dg-error "GNU Extension: re-initialization" }
print *, x
end subroutine foo
|
