gcc/testsuite/algol68/execute/selection-5.a68

# { 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