! { dg-do run } | |
! { dg-options "-fdec-structure -ffixed-form" } | |
! | |
! Test the %FILL component extension. | |
! | |
implicit none | |
structure /s/ | |
character(2) i | |
character(2) %fill | |
character(2) j | |
end structure | |
structure /s2/ | |
character buf(6) | |
end structure | |
record /s/ x | |
record /s2/ y | |
equivalence (x, y) | |
x.i = '12' | |
x.j = '34' | |
if (y.buf(1) .ne. '1') then | |
STOP 1 | |
endif | |
if (y.buf(2) .ne. '2') then | |
STOP 2 | |
endif | |
if (y.buf(5) .ne. '3') then | |
STOP 3 | |
endif | |
if (y.buf(6) .ne. '4') then | |
STOP 4 | |
endif | |
end |