blob: b3b375f79d971ebb51e41fa7dc15a1c887888c02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|