2 ! { dg-options "-ff2c" }
3 ! Verifies that complex pointer results work with -ff2c
4 ! try all permutations of result clause in function yes/no
5 ! and result clause in interface yes/no
6 ! this is not possible in Fortran 77, but this exercises a previously
8 function c() result (r)
32 function f() result(r)
51 function e () result(r)
56 function f () result(r)
68 if (p /= z) call abort ()
73 if (p /= z) call abort ()
78 if (p /= z) call abort ()
83 if (p /= z) call abort ()