Browse Source

Merged revisions 7113 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r7113 | pierre | 2007-04-16 11:35:47 +0200 (Mon, 16 Apr 2007) | 1 line

* add test for wrong code that should generate an error
........

git-svn-id: branches/fixes_2_2@7119 -

pierre 18 years ago
parent
commit
fd62153cd5
3 changed files with 20 additions and 0 deletions
  1. 2 0
      .gitattributes
  2. 9 0
      tests/tbf/tb0199.pp
  3. 9 0
      tests/tbf/tb0199a.pp

+ 2 - 0
.gitattributes

@@ -5661,6 +5661,8 @@ tests/tbf/tb0195.pp svneol=native#text/plain
 tests/tbf/tb0196.pp svneol=native#text/plain
 tests/tbf/tb0196.pp svneol=native#text/plain
 tests/tbf/tb0197.pp svneol=native#text/plain
 tests/tbf/tb0197.pp svneol=native#text/plain
 tests/tbf/tb0198.pp svneol=native#text/plain
 tests/tbf/tb0198.pp svneol=native#text/plain
+tests/tbf/tb0199.pp -text
+tests/tbf/tb0199a.pp -text
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain

+ 9 - 0
tests/tbf/tb0199.pp

@@ -0,0 +1,9 @@
+{%NORUN}
+{%FAIL}
+type
+  test = record
+    f3,,,f5,,, : Boolean;
+  end;
+
+begin
+end.

+ 9 - 0
tests/tbf/tb0199a.pp

@@ -0,0 +1,9 @@
+{%NORUN}
+{%FAIL}
+type
+  test = record
+    f3,f5, : Boolean;
+  end;
+
+begin
+end.