2 ! Tests the fix for PR19546 in which an ICE would result from
\r
3 ! setting the parent result in a contained procedure.
\r
4 ! This case tests character results.
\r
10 if (f.eq."iklm") f = "abcd"
15 if (f.eq."efgh") f = "iklm"
19 function g() ! { dg-warning "is obsolescent in fortran 95" }
23 if (g.eq."iklm") g = "ABCD"
28 if (g.eq."efgh") g = "iklm"
32 character(4), external :: f, g
\r
33 if (f ().ne."wxyz") call abort ()
34 if (g ().ne."WXYZ") call abort ()