Merge branch 'fmtarg' into 'master'

fmt: Print dummy arguments correctly

See merge request lfortran/lfortran!636

Author: certik

src/lfortran/ast_to_src.cpp

@@ -762,7 +762,7 @@ class ASTToSRCVisitor : public BaseVisitor<ASTToSRCVisitor>
         for (size_t i=0; i<x.n_args; i++) {
             this->visit_expr(*x.m_args[i]);
             r.append(s);
-            if (i < x.n_args-1) s.append(", ");
+            if (i < x.n_args-1) r.append(", ");
         }
         for (size_t i=0; i<x.n_keywords; i++) {
             this->visit_keyword(x.m_keywords[i]);

tests/fn_call1.f90

@@ -0,0 +1,4 @@
+size(tvec, dim=2)
+min(tvec(2, i), tvec(1, i))
+a(1, 2, 3)
+A(i,j,k)

tests/reference/ast-fn_call1-7e6ba0b.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast-fn_call1-7e6ba0b",
+    "cmd": "lfortran --show-ast --no-color {infile} -o {outfile}",
+    "infile": "tests/fn_call1.f90",
+    "infile_hash": "734b71292f6dc8ea73b211bbddc7438c34a8a3bd72ccbffa35f19e0e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast-fn_call1-7e6ba0b.stdout",
+    "stdout_hash": "f40788d7b1682acb151b97bff70b111b05328996514bd6f599e8af19",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast-fn_call1-7e6ba0b.stdout

@@ -0,0 +1 @@
+(TranslationUnit [(FuncCallOrArray size [tvec 2] []) (FuncCallOrArray min [(FuncCallOrArray tvec [2 i] []) (FuncCallOrArray tvec [1 i] [])] []) (FuncCallOrArray a [1 2 3] []) (FuncCallOrArray A [i j k] [])])

tests/reference/ast_f90-fn_call1-e65b119.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast_f90-fn_call1-e65b119",
+    "cmd": "lfortran --show-ast-f90 --no-color {infile}",
+    "infile": "tests/fn_call1.f90",
+    "infile_hash": "734b71292f6dc8ea73b211bbddc7438c34a8a3bd72ccbffa35f19e0e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast_f90-fn_call1-e65b119.stdout",
+    "stdout_hash": "57464594a9c140984450d6a8f2864ab9e061bd798be860666065610b",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast_f90-fn_call1-e65b119.stdout

@@ -0,0 +1,4 @@
+size(tvec, 2)
+min(tvec(2, i), tvec(1, i))
+a(1, 2, 3)
+A(i, j, k)

tests/tests.toml

@@ -571,3 +571,8 @@ mod_to_asr = true
 filename = "fmt1.f90"
 ast = true
 ast_f90 = true
+
+[[test]]
+filename = "fn_call1.f90"
+ast = true
+ast_f90 = true