mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 23:21:57 +02:00
* add test for wrong code that should generate an error
git-svn-id: trunk@7113 -
This commit is contained in:
parent
b6b3a6cdff
commit
d7e6f9f701
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -5746,6 +5746,8 @@ tests/tbf/tb0195.pp svneol=native#text/plain
|
||||
tests/tbf/tb0196.pp svneol=native#text/plain
|
||||
tests/tbf/tb0197.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/ub0149.pp svneol=native#text/plain
|
||||
tests/tbf/ub0158a.pp svneol=native#text/plain
|
||||
|
9
tests/tbf/tb0199.pp
Normal file
9
tests/tbf/tb0199.pp
Normal file
@ -0,0 +1,9 @@
|
||||
{%NORUN}
|
||||
{%FAIL}
|
||||
type
|
||||
test = record
|
||||
f3,,,f5,,, : Boolean;
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
9
tests/tbf/tb0199a.pp
Normal file
9
tests/tbf/tb0199a.pp
Normal file
@ -0,0 +1,9 @@
|
||||
{%NORUN}
|
||||
{%FAIL}
|
||||
type
|
||||
test = record
|
||||
f3,f5, : Boolean;
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user