+ tests for previous commit

git-svn-id: trunk@4958 -

.gitattributes

@@ -6327,6 +6327,8 @@ tests/test/tinline3.pp svneol=native#text/plain
 tests/test/tinline4.pp svneol=native#text/plain
 tests/test/tinline5.pp -text
 tests/test/tinline6.pp svneol=native#text/plain
+tests/test/tint2str1.pp svneol=native#text/plain
+tests/test/tint2str2.pp svneol=native#text/plain
 tests/test/tint641.pp svneol=native#text/plain
 tests/test/tint642.pp svneol=native#text/plain
 tests/test/tint643.pp svneol=native#text/plain

tests/test/tint2str1.pp

@@ -0,0 +1,14 @@
+{$mode macpas}
+
+procedure test(s: string);
+begin
+  if s <> 'abcd' then
+    halt(1);
+end;
+
+var
+  l: longint;
+begin
+  l := 'abcd';
+  test(l);
+end.

tests/test/tint2str2.pp

@@ -0,0 +1,15 @@
+{% fail}
+
+{$mode fpc}
+
+procedure test(s: string);
+begin
+  halt(0);
+end;
+
+var
+  l: longint;
+begin
+  l := 'abcd';
+  test(l);
+end.