Merged revisions 1887 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r1887 (jonas)
  * also make "out" shortstring parameters openstrings if required

git-svn-id: branches/fixes_2_0@1888 -

compiler/pdecsub.pas

@@ -520,7 +520,7 @@ implementation
              else
               begin
                 { open string ? }
-                if (varspez=vs_var) and
+                if (varspez in [vs_out,vs_var]) and
                         (
                           (
                             ((token=_STRING) or (idtoken=_SHORTSTRING)) and