fpcsrc/tests/test/twarn1.pp


1
2
3
4
5
6
7
8
9
10
11
12

program Project1;

{$mode objfpc}{$H+}

var
   i: integer platform;
begin
   {$warn symbol_platform off}
   i := 1;
   {$warn symbol_platform off}
   i := 2;
end.