2 ! Test of the patch for PR30096, in which gfortran incorrectly.
3 ! compared local with host associated interfaces.
5 ! Based on contribution by Harald Anlauf <anlauf@gmx.de>
12 function A (X) result (Y)
16 function B (X) result (Y)
27 function C (X) result (Y)
34 use module1, only : inverse
36 if (inverse(1.0_4) /= 1.0_4) call abort ()
37 if (inverse(1_4) /= 3_4) call abort ()
40 use module2, only : inverse
41 if (inverse(1.0_4) /= 2.0_4) call abort ()
42 if (inverse(1_4) /= 3_4) call abort ()
46 ! { dg-final { cleanup-modules "module1 module2" } }