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