gcc/testsuite/algol68/execute/gen-multiple-1.a68

# { dg-options "-fstropping=upper" }  #
BEGIN MODE JORL = [(INT x; x + 1)]INT;
      JORL xx;
      ASSERT (ELEMS xx = 1 AND xx[1] = 0)
END