gcc/testsuite/gfortran.dg/dec_structure_19.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec-structure -ffree-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   call abort
  27 endif
  28 if (y.buf(2) .ne. '2') then
  29   call abort
  30 endif
  31 if (y.buf(5) .ne. '3') then
  32   call abort
  33 endif
  34 if (y.buf(6) .ne. '4') then
  35   call abort
  36 endif
  37
  38 end