Ver código fonte

* Check that two $WARN are OK

git-svn-id: trunk@17869 -
pierre 14 anos atrás
pai
commit
29ca78c6e3
2 arquivos alterados com 13 adições e 0 exclusões
  1. 1 0
      .gitattributes
  2. 12 0
      tests/test/twarn1.pp

+ 1 - 0
.gitattributes

@@ -10461,6 +10461,7 @@ tests/test/tutf82.pp svneol=native#text/plain
 tests/test/tvarpropsetter1.pp svneol=native#text/plain
 tests/test/tvarpropsetter2.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/tweaklib2.pp svneol=native#text/plain
 tests/test/tweaklib3.pp svneol=native#text/plain

+ 12 - 0
tests/test/twarn1.pp

@@ -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.