| ! { dg-do run } | |
| module z | |
| integer :: i | |
| character(6) :: a(2) = (/ ('main ' , i = 1, 2) /) | |
| character(6) :: b(2) = (/ 'abcd ' , 'efghij' /) | |
| end module | |
| program y | |
| use z | |
| if (a(1) /= 'main ') STOP 1 | |
| if (a(2) /= 'main ') STOP 2 | |
| if (b(1) /= 'abcd ') STOP 3 | |
| if (b(2) /= 'efghij') STOP 4 | |
| end program y |