2 ! Tests the for PR30410, in which the reference to extfunc would
3 ! be incorrectly made to the module namespace.
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
9 function eval (func, x1)
10 real :: eval, func, x1
15 !-------------------------------
18 real, external :: extfunc ! This was referenced as __mod2__extfunc__
24 x0 = eval (extfunc, x1)
28 !-------------------------------
34 !-------------------------------
41 ! { dg-final { cleanup-modules "mod1 mod2" } }