2 ! { dg-options "-fdec-structure" }
3 ! Tests the VAX STRUCTURE and RECORD statements.
4 ! These are syntactic sugar for TYPE statements.
6 program vax_structure_1
14 record /stocklevel
/ rec1
, recs(100)
23 print *, rec1
.B
.eq
.100
24 print *, rec1
.A
.eq
.x
! {dg-error "are INTEGER(2)/INTEGER(4)"}
26 print *, recs(100).CS(10)