2 ! { dg-do compile { target fortran_real_16 } }
10 procedure(), nopass
, pointer :: testProc
=> null()
13 complex(kind
=16), pointer :: ptr
15 type(T
), target
:: type_complex32
20 subroutine bar (testProc
)
21 procedure(), optional
:: testProc
25 function foo (self
) result(res
)
26 complex(kind
=16) :: self
27 type(T
), pointer :: res
28 call bar (testProc
= baz
)
30 subroutine baz (buffer
, status
)
31 character(len
=*) :: buffer
32 integer(kind
=4) :: status
33 complex(kind
=16), target
:: obj
35 integer(kind
=1), parameter :: zero(storage_size(obj
)/8) = 0
36 obj
= transfer (zero
, obj
)
38 write (buffer
, *, iostat
=status
) self
%ptr
, '#'