# { dg-options "-fstropping=upper" }  #
# pr UPPER pr  #
BEGIN MODE JORL = STRUCT (INT i, REAL r);
      REF JORL jorl = LOC JORL := (10, 3.14);
      ASSERT (i OF jorl = 10)
END