paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 15:52:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Check that two $WARN are OK

Browse Source 
git-svn-id: trunk@17869 -
This commit is contained in:
pierre 2011-06-29 14:31:10 +00:00
parent 9ec1213be1
commit 29ca78c6e3
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10461,6 +10461,7 @@ tests/test/tutf82.pp svneol=native#text/plain
tests/test/tvarpropsetter1.pp svneol=native#text/plain tests/test/tvarpropsetter1.pp svneol=native#text/plain
tests/test/tvarpropsetter2.pp svneol=native#text/plain tests/test/tvarpropsetter2.pp svneol=native#text/plain
tests/test/tvarset1.pp svneol=native#text/plain tests/test/tvarset1.pp svneol=native#text/plain
tests/test/twarn1.pp svneol=native#text/pascal
tests/test/tweaklib1.pp svneol=native#text/plain tests/test/tweaklib1.pp svneol=native#text/plain
tests/test/tweaklib2.pp svneol=native#text/plain tests/test/tweaklib2.pp svneol=native#text/plain
tests/test/tweaklib3.pp svneol=native#text/plain tests/test/tweaklib3.pp svneol=native#text/plain

12
tests/test/twarn1.pp Normal file
View File

@ -0,0 +1,12 @@
program Project1;
{$mode objfpc}{$H+}
var
i: integer platform;
begin
{$warn symbol_platform off}
i := 1;
{$warn symbol_platform off}
i := 2;
end.