gcc/testsuite/algol68/execute/variable-declaration-heap-1.a68

# { dg-options "-fstropping=upper" }  #
BEGIN HEAP INT a := 10;
      ASSERT (a = 10)
END