pascal
/
freepascal.compiler
şunun yansıması https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							123456789101112
							{ %fail }
{ %opt=-Sew -vw }

procedure p;
var
  j : longint;
begin
  for j:=1 TO j do;
end;

begin
end.