blob: 8648003ad23b27288fd915115b2073491b5dbe54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# { 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
|
