gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR27900, in which an ICE would be caused because
   3 ! the actual argument LEN had no type.
   4 !
   5 ! Contributed by Klaus Ramstöck <klra67@freenet.de>
   6 !
   7       subroutine sub (proc, chr)
   8       external proc
   9       integer proc
  10       character*(*) chr
  11       if (proc (chr) .ne. 6) STOP 1
  12       end subroutine sub
  13
  14       implicit none
  15       integer i
  16       intrinsic len
  17       i = len ("123")
  18       call sub (len, "abcdef")
  19       end