mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-02 03:50:35 +02:00
+ test for previous commit
git-svn-id: trunk@9173 -
This commit is contained in:
parent
578c18a204
commit
82d49bdc45
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -8487,6 +8487,7 @@ tests/webtbs/tw9187.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw9190.pp svneol=native#text/plain
|
tests/webtbs/tw9190.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9209.pp svneol=native#text/plain
|
tests/webtbs/tw9209.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9221.pp svneol=native#text/plain
|
tests/webtbs/tw9221.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw9233.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9261.pp svneol=native#text/x-pascal
|
tests/webtbs/tw9261.pp svneol=native#text/x-pascal
|
||||||
tests/webtbs/tw9278.pp svneol=native#text/plain
|
tests/webtbs/tw9278.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9299.pp -text
|
tests/webtbs/tw9299.pp -text
|
||||||
|
9
tests/webtbs/tw9233.pp
Normal file
9
tests/webtbs/tw9233.pp
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
{ %norun }
|
||||||
|
program ChainBugTest;
|
||||||
|
|
||||||
|
var
|
||||||
|
v: Variant;
|
||||||
|
|
||||||
|
begin
|
||||||
|
v.GetOtherVariant.SomeProc;
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user