! { dg-do "compile" }
  ! { dg-options "-fdec-structure" }
  !
  ! Test that structures inside a common block do not require the
  ! SEQUENCE attribute, as derived types do.
  !

common var

structure /s/
  integer i
  integer j
  real r
end structure

record /s/ var

end