| # { dg-options "-fstropping=upper" } # | |
| # Structs can be nested in other structs. # | |
| BEGIN MODE INCOME = STRUCT (REAL salary, stock, INT code); | |
| MODE PERSON = STRUCT (INT age, INCOME income, INT num children); | |
| PERSON person = (44, (999.99, 0.0, 10), 3); | |
| ASSERT (age OF person = 44); | |
| ASSERT (code OF income OF person = 10); | |
| ASSERT (num children OF person = 3); | |
| ASSERT (num children OF person * code OF income OF person = 30) | |
| END |