mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 17:29:33 +02:00
* new test
git-svn-id: trunk@3892 -
This commit is contained in:
parent
9998099a05
commit
79703f834e
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -7184,6 +7184,7 @@ tests/webtbs/tw6435.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6491.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6624.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6684.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6700.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6735.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6742.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6767.pp svneol=native#text/plain
|
||||
|
17
tests/webtbs/tw6700.pp
Normal file
17
tests/webtbs/tw6700.pp
Normal file
@ -0,0 +1,17 @@
|
||||
program bug;
|
||||
|
||||
{$inline on}
|
||||
{$goto on}
|
||||
|
||||
procedure crasher;inline;
|
||||
|
||||
label beg;
|
||||
|
||||
begin
|
||||
goto beg;
|
||||
beg:
|
||||
end;
|
||||
|
||||
begin
|
||||
crasher;
|
||||
end.
|
Loading…
Reference in New Issue
Block a user