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