! { 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 ') call abort | |
if (a(2) /= 'main ') call abort | |
if (b(1) /= 'abcd ') call abort | |
if (b(2) /= 'efghij') call abort | |
end program y | |
! { dg-final { cleanup-modules "z" } } |