1      ! { dg-do run }
2      ! { dg-options "-fdec-structure -ffixed-form" }
3      !
4      ! Test the %FILL component extension.
5      !
6      implicit none
7
8      structure /s/
9        character(2) i
10        character(2) %fill
11        character(2) j
12      end structure
13
14      structure /s2/
15        character buf(6)
16      end structure
17
18      record /s/ x
19      record /s2/ y
20      equivalence (x, y)
21
22      x.i = '12'
23      x.j = '34'
24
25      if (y.buf(1) .ne. '1') then
26        STOP 1
27      endif
28      if (y.buf(2) .ne. '2') then
29        STOP 2
30      endif
31      if (y.buf(5) .ne. '3') then
32        STOP 3
33      endif
34      if (y.buf(6) .ne. '4') then
35        STOP 4
36      endif
37
38      end
39