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   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