gcc/testsuite/algol68/execute/serial-dsa-4.a68

begin (ref int a = loc int := 10; goto leak; a);
leak:
      skip
end