mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 11:09:15 +02:00
+ new test
git-svn-id: trunk@3563 -
This commit is contained in:
parent
ecf4a7faff
commit
02da87ff94
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6818,6 +6818,7 @@ tests/webtbs/tw5023.pp svneol=native#text/plain
|
||||
tests/webtbs/tw5036.pp svneol=native#text/plain
|
||||
tests/webtbs/tw5082.pp -text svneol=unset#text/plain
|
||||
tests/webtbs/tw6491.pp svneol=native#text/plain
|
||||
tests/webtbs/tw6742.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||
|
14
tests/webtbs/tw6742.pp
Normal file
14
tests/webtbs/tw6742.pp
Normal file
@ -0,0 +1,14 @@
|
||||
type
|
||||
openstring=integer;
|
||||
|
||||
procedure test(var x:openstring);
|
||||
begin
|
||||
writeln(x);
|
||||
end;
|
||||
|
||||
var
|
||||
x: openstring;
|
||||
begin
|
||||
x:=1;
|
||||
test(x);
|
||||
end.
|
Loading…
Reference in New Issue
Block a user