gcc/testsuite/gfortran.dg/char_length_6.f90

   1 ! { dg-do run }
   2 !
   3 program test
   4   character(2_8) :: c(2)
   5   logical :: l(2)
   6
   7   c = "aa"
   8   l = c .eq. "aa"
   9   if (any (.not. l)) call abort
  10
  11   call foo ([c(1)])
  12   l = c .eq. "aa"
  13   if (any (.not. l)) call abort
  14
  15 contains
  16
  17   subroutine foo (c)
  18     character(2) :: c(1)
  19   end subroutine foo
  20
  21 end