From 6ffd8f020184ae5925a8a3ad512d025654bf58ef Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 12 Sep 2015 23:31:57 +0000
Subject: [PATCH]   * finalize managed data passed to untyped "out" parameters
 after r31328     (mantis #2863)

git-svn-id: trunk@31624 -
---
 .gitattributes          |  1 +
 compiler/ncal.pas       |  1 -
 tests/webtbs/tw28632.pp | 21 +++++++++++++++++++++
 3 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 tests/webtbs/tw28632.pp

diff --git a/.gitattributes b/.gitattributes
index 4c2c16b38c..d2f0bd0e06 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14735,6 +14735,7 @@ tests/webtbs/tw2853d.pp svneol=native#text/plain
 tests/webtbs/tw2853e.pp svneol=native#text/plain
 tests/webtbs/tw2859.pp svneol=native#text/plain
 tests/webtbs/tw28593.pp svneol=native#text/plain
+tests/webtbs/tw28632.pp -text svneol=native#text/plain
 tests/webtbs/tw2865.pp svneol=native#text/plain
 tests/webtbs/tw28650.pp svneol=native#text/pascal
 tests/webtbs/tw2876.pp svneol=native#text/plain
diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 53aae4db75..33c0392c4c 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -1001,7 +1001,6 @@ implementation
 
         if assigned(parasym) and
            (parasym.varspez in [vs_var,vs_out,vs_constref]) and
-           (parasym.vardef.typ<>formaldef) and
            { for record constructors }
            (left.nodetype<>nothingn) then
           handlemanagedbyrefpara(left.resultdef);
diff --git a/tests/webtbs/tw28632.pp b/tests/webtbs/tw28632.pp
new file mode 100644
index 0000000000..5f8d56c9e8
--- /dev/null
+++ b/tests/webtbs/tw28632.pp
@@ -0,0 +1,21 @@
+{ %opt=-gh }
+
+{$mode objfpc}{$H+}
+
+procedure clear(out x);
+begin
+  pointer(x):=nil;
+end;
+
+procedure test;
+var
+  ii1: iunknown;
+begin
+  ii1:=tinterfacedobject.create;
+  clear(ii1);
+end;
+
+begin
+  HaltOnNotReleased:=true;
+  test;
+end.