2 ! Tests the fix for PR32926, in which the call to fcn
3 ! in bar would cause an ICE because it had not been referenced
4 ! in the namespace where it was declared.
6 ! Contributed by Ralph Baker Kearfott <rbk@louisiana.edu>
28 external foo, foobar1, foobar2
32 if (chr .ne. "foobar1") call abort ()
34 if (chr .ne. "foobar2") call abort ()