usr/share/fpcsrc/3.0.0/tests/test/tnonlocalgoto1.pp · bee / fpc-src v3.0.0 - deb package | Gemfury

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / tnonlocalgoto1.pp

{ %fail }
{$mode iso}
label 1;

procedure p1;
  var
    s : ansistring;
  procedure p2;
    begin
      goto 1;
    end;

  begin
    s:='asdf'
  end;

begin
  1:
end.