# { dg-options "-fstropping=upper" }  #
BEGIN MODE NODE = STRUCT (INT one, two, three);
      NODE top;
      top := (10,20,30);
      ASSERT (two OF top = 20)
END