3 ! Contributed by Thomas Fanning <thfanning@gmail.com>
9 class(*), pointer :: ptr
16 subroutine setref(my
,ip
)
19 integer, pointer :: ip
25 class(*), pointer :: ptr
33 !---------------------------------------
35 !---------------------------------------
40 integer, pointer :: i
, j
42 class(*), pointer :: lp
48 select
type (ap
=> tp
%ptr
)
55 ! gfortran used to give i=3 and j=7 because the associate name was not pointing
56 ! to the target of tp%ptr as required by F2018:19.5.1.6 but, rather, to the
62 !---------------------------------------