gcc/testsuite/gfortran.dg/pr15140.f90

   1 ! { dg-do run }
   2 ! PR 15140: we used to fail an assertion, because we don't use the
   3 ! argument of the subroutine directly, but instead use a copy of it.
   4 function M(NAMES)
   5   CHARACTER*(*) NAMES(*)
   6   if (any(names(1:2).ne."asdfg")) call abort
   7   m = LEN(NAMES(1))
   8 END function M
   9
  10 character(5) :: c(2)
  11 c = "asdfg"
  12 if(m(c).ne.5) call abort()
  13 end