2 ! Tests the fix for PR33550, in which an ICE would occur, instead of
3 ! the abiguous reference error.
6 ! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/1abc1549a6a164f1/
7 ! by James Van Buskirk:
29 use M4 ! 'x' is ambiguous here but is not referred to
40 function x(z) ! { dg-error "ambiguous reference" }
41 end function x ! { dg-error "Expecting END INTERFACE" }
44 write(*,*) 'Hello, world!'
50 ! { dg-final { cleanup-modules "m1 m2 m3 m4 m5 m6" } }