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!'