+ test for out-initialised checking

git-svn-id: trunk@2488 -

.gitattributes

@@ -4854,6 +4854,7 @@ tests/tbf/tb0174d.pp svneol=native#text/plain
 tests/tbf/tb0175.pp svneol=native#text/plain
 tests/tbf/tb0176.pp svneol=native#text/plain
 tests/tbf/tb0177.pp svneol=native#text/plain
+tests/tbf/tb0178.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain

tests/tbf/tb0178.pp

@@ -0,0 +1,17 @@
+{ %fail }
+{ %OPT=-Sew -veiw }
+
+{$mode objfpc}
+
+procedure t(out l: longint);
+begin
+  if (l > 0) then
+    l := 1;
+end;
+
+var
+  a: longint;
+begin
+  t(a);
+  writeln(a);
+end.