gcc/testsuite/gfortran.dg/dec_structure_14.f90

   1   ! { dg-do compile }
   2   ! { dg-options "-fdec-structure" }
   3   !
   4   ! Test that structures inside a common block do not require the
   5   ! SEQUENCE attribute, as derived types do.
   6   !
   7
   8 common var
   9
  10 structure /s/
  11   integer i
  12   integer j
  13   real r
  14 end structure
  15
  16 record /s/ var
  17
  18 end