gcc/testsuite/gfortran.dg/dec_structure_18.f90

   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