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