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")