TP3/shell/tests/fixtures/t119_longname.pas

program This_Program_Name_Is_Long_But_Still_Within_TP3_Limit;
var This_Variable_Name_Is_Also_Long_But_Still_Legal_In_TP3 : integer;
begin
  This_Variable_Name_Is_Also_Long_But_Still_Legal_In_TP3 := 42;
  writeln(This_Variable_Name_Is_Also_Long_But_Still_Legal_In_TP3)
end.