From 01835c520ac5dc1b3503077d568783cbc3870690 Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 4 Sep 2022 11:28:13 +0200
Subject: [PATCH] #2694

---
 TestSuite/double_question4.pas                      | 5 +++++
 TreeConverter/TreeConversion/syntax_tree_visitor.cs | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 TestSuite/double_question4.pas

diff --git a/TestSuite/double_question4.pas b/TestSuite/double_question4.pas
new file mode 100644
index 000000000..1c50dd626
--- /dev/null
+++ b/TestSuite/double_question4.pas
@@ -0,0 +1,5 @@
+function f := default(string);
+begin
+  var s := (f??'').PadRight(3);
+  assert(s = '   ');
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index d58fb1a76..fde3dcc1c 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -18583,7 +18583,7 @@ namespace PascalABCCompiler.TreeConverter
 
 
             //right = convertion_data_and_alghoritms.convert_type(right, left.type);
-            return_value(new double_question_colon_expression(condition, right, get_location(node)));
+            return_value(new double_question_colon_expression(left, right, get_location(node)));
         }
 
         public override void visit(SyntaxTree.question_colon_expression node)