19 lines
444 B
Fortran
19 lines
444 B
Fortran
! { dg-do run }
|
|
! Tests the fix for PR27900, in which an ICE would be caused because
|
|
! the actual argument LEN had no type.
|
|
!
|
|
! Contributed by Klaus Ramstöck <klra67@freenet.de>
|
|
!
|
|
subroutine sub (proc, chr)
|
|
external proc
|
|
integer proc
|
|
character*(*) chr
|
|
if (proc (chr) .ne. 6) call abort ()
|
|
end subroutine sub
|
|
|
|
implicit none
|
|
integer i
|
|
i = len ("123")
|
|
call sub (len, "abcdef")
|
|
end
|