gcc/testsuite/gfortran.dg/pr71862.f90


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