2 ! Tests the fix for PR34431 in which function TYPEs that were
3 ! USE associated would cause an error.
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
22 type(t
) function func()
80 ! NAG f95 believes that the host-associated type(t)
83 ! However, I (Tobias Burnus) believe that the use-associated one should
100 type(t
) function d1()
104 ! { dg-final { cleanup-modules "m1 m2 m3" } }