| # { dg-options "-fstropping=upper" } # | |
| # Selecting a struct name results in sub-names. # | |
| BEGIN MODE PERSON = STRUCT (INT age, REAL income, INT num children); | |
| PERSON person; | |
| age'person := 44; | |
| income'person := 999.99; | |
| num children OF person := 0; | |
| ASSERT (age OF person = 44); | |
| ASSERT (num children OF person = 0); | |
| REF INT ptr to age := age OF person; | |
| ASSERT (ptr to age = 44); | |
| age OF person := 55; | |
| ASSERT (ptr to age = 55) | |
| END |