* correctly handle result type of string constant nodes for internally created

    nodes

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45231 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/tbs/tb0671.pp b/tests/tbs/tb0671.pp
new file mode 100644
index 0000000000..ba59e6a78e
--- /dev/null
+++ b/tests/tbs/tb0671.pp
@@ -0,0 +1,20 @@
+{$inline on}
+{$mode objfpc}{$H+}
+
+resourcestring
+  rs = 'All files';
+
+function fs: string;inline;
+begin
+  Result:='*';
+end;
+
+
+function f: String;
+begin
+  Result:=rs+' ('+fs+')|'+fs;
+end;
+
+begin
+  writeln(f);
+end.