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 ! Check that parent function results can be referenced in modules.
\r
12 if (f.eq.1) f = f + 1
\r
15 if (f.eq.42) f = f - 41
\r
21 if (f ().ne.2) call abort ()
\r