aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/gen-heap-3.a68
blob: e2c026b2bc812156bc1be7bbcdba156dde60469a (plain)
1
2
3
4
5
# { dg-options "-fstropping=upper" }  #
BEGIN INT jorl;
      INT var := HEAP INT := 15; # The generated name goes away #
      ASSERT (var = 15)
END