1! { dg-do run } 2module z 3 integer :: i 4 character(6) :: a(2) = (/ ('main ' , i = 1, 2) /) 5 character(6) :: b(2) = (/ 'abcd ' , 'efghij' /) 6end module 7 8program 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 14end program y 15