gcc/testsuite/gfortran.dg/overload_2.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR32157, in which overloading 'LEN', as
   3 ! in 'test' below would cause a compile error.
   4 !
   5 ! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
   6 !
   7 subroutine len(c)
   8   implicit none
   9   character :: c
  10   c = "X"
  11 end subroutine len
  12
  13 subroutine test()
  14   implicit none
  15   character :: str
  16   external len
  17   call len(str)
  18   if(str /= "X") call abort()
  19 end subroutine test
  20
  21 PROGRAM VAL
  22  implicit none
  23  external test
  24  intrinsic len
  25  call test()
  26  if(len(" ") /= 1) call abort()
  27 END