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 ! From the testcase of Francois-Xavier Coudert/Tobias Schlueter
\r
10 if (f.eq.1) f = f + 1
\r
13 if (f.eq.42) f = f - 41
\r
17 integer, external :: f
\r
18 if (f ().ne.2) call abort ()
\r