begin
   procedure P(L);
      integer
        L;
      L : begin
      real
        A;
      goto L;
      L :;
      goto LL
   end;
   P(1);
   LL :;
end