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<73>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
|