Subversion Repositories openrisc

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

!

      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