blob: 411bfc27848c9884729257ccd5028f051f2b2be2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { dg-do compile }
program p
type t
integer :: n = 0
integer, pointer :: q => null()
end type
type(t) :: x
print *, associated(x%q)
x = f()
print *, associated(x%q)
contains
function f() result (z) ! { dg-error "must be dummy, allocatable or pointer" }
class(t) :: z
print *, associated(z%q)
end
end
|
