gcc/testsuite/algol68/execute/rowing-12.a68

# { dg-options "-fstropping=upper" }  #
# Rowing of NIL yields NIL.  #
BEGIN REF INT i = NIL;
      REF[]INT a = i;
      ASSERT (a :=: NIL)
END