{ %fail }
{$mode iso}
unit tisogoto4;

  interface

  implementation
  
    label
      1;

    procedure p;
      begin
        goto 1;
      end;        

begin
  1:      
end.