3 ! PR 40882: [F03] infinite recursion in gfc_get_derived_type with PPC returning derived type.
4 ! At the same time, check that a formal argument does not cause infinite recursion (PR 40870).
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
12 procedure(foo), pointer, nopass :: ppc
13 procedure(type(t)), pointer, nopass :: ppc2
23 if (o%data /= 1) call abort()
24 if (o2%data /= 5) call abort()
25 if (.not. associated(o%ppc)) call abort()
26 if (associated(o2%ppc)) call abort()
32 foo%data = arg%data * 5