gcc/testsuite/gfortran.dg/char_array_constructor.f90

   1 ! { dg-do run }
   2 module z
   3    integer :: i
   4    character(6) :: a(2) = (/ ('main  ' , i = 1, 2) /)
   5    character(6) :: b(2) = (/ 'abcd  ' , 'efghij' /)
   6 end module
   7
   8 program y
   9   use z
  10   if (a(1) /= 'main  ') call abort
  11   if (a(2) /= 'main  ') call abort
  12   if (b(1) /= 'abcd  ') call abort
  13   if (b(2) /= 'efghij') call abort
  14 end program y
  15
  16 ! { dg-final { cleanup-modules "z" } }