! { dg-do compile }
! { dg-options "-fdec-structure -ffree-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