# { dg-options "-fstropping=upper" }  #
# Structs can be nested in other structs.  Version with subnames.  #
BEGIN MODE INCOME = STRUCT (REAL salary, stock, INT code);
      MODE PERSON = STRUCT (INT age, INCOME income, INT num children);

      PERSON person;

      age OF person := 44;
      salary OF income OF person := 999.99;
      stock OF income OF person := 0.0;
      num children OF person := 3;
      code OF income OF person := num children OF person;

      ASSERT (age OF person = 44);
      ASSERT (code OF income OF person = num children OF person);
      ASSERT (code OF income OF person = 3);
      ASSERT (num children OF person = 3);
      ASSERT (num children OF person * code OF income OF person = 9)
END