3 ! PR 45290: [F08] pointer initialization
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
11 procedure(f1
), pointer :: pp
=> f1
14 procedure(f2
), pointer, nopass
:: ppc
=> f2
37 if (pp()/=42) call abort()
38 if (u
%ppc()/=43) call abort()
42 ! { dg-final { cleanup-modules "m" } }