2 ! Tests the fix for PR27900, in which an ICE would be caused because
3 ! the actual argument LEN had no type.
5 ! Contributed by Klaus Ramstöck <klra67@freenet.de>
7 subroutine sub (proc, chr)
11 if (proc (chr) .ne. 6) call abort ()
17 call sub (len, "abcdef")