+ new test

git-svn-id: trunk@3563 -

.gitattributes

@@ -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

tests/webtbs/tw6742.pp

@@ -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.