Add stack overflow test

Author: sjoelund

flattening/modelica/algorithms-functions/Makefile

@@ -90,7 +90,7 @@ MRFcall.mo \
 MultFuncCall.mo \
 RecursiveCallExtends.mo \
 RecursiveFunctionCall.mo \
-SumForLoop.mo \
+StackOverflowTest.mos \
 Summation.mo \
 SumSeriesWhile.mo \
 SumVectorForIf.mo \

flattening/modelica/algorithms-functions/StackOverflowTest.mos

@@ -0,0 +1,34 @@
+// status: correct
+
+loadString("model StackOverflowTest
+  function f
+    output Real r = 2;
+  algorithm
+    f();
+    print(\"Can't get here, can you?\n\");
+  end f;
+  constant Real r = f();
+end StackOverflowTest;");
+getErrorString();
+instantiateModel(StackOverflowTest);
+getErrorString();
+
+// Result:
+// true
+// ""
+// "function StackOverflowTest.f
+//   output Real r = 2.0;
+// algorithm
+//   fail();
+//   print(\"Can't get here, can you?
+//   \");
+// end StackOverflowTest.f;
+//
+// class StackOverflowTest
+//   constant Real r = fail();
+// end StackOverflowTest;
+// "
+// "[Script/CevalScript.mo:0:0-0:0:writable] Error: Internal error Stack overflow when evaluating function call: StackOverflowTest.f()...
+// [bt] [Symbols are not generated when running the test suite]
+// "
+// endResult

flattening/modelica/redeclare/ComparePSD.mo

@@ -1,5 +1,6 @@
 // name:     ComparePSD.mo [BUG: #2739]
 // keywords: redeclare function
+// cflags: -d=nogen
 // status:   correct
 //
 // Checks that it's possible to uniquely modify packages in different components having the same type

simulation/modelica/arrays/gc.mos

@@ -73,7 +73,7 @@ simulate(gctest, numberOfIntervals=2); getErrorString();
 //   String str[15];
 //   String s;
 // equation
-//   str = Modelica.Utilities.Streams.readFile(\"gc.mo\");
+//   str = {\"model gctest\", \"  String str[:] = Modelica.Utilities.Streams.readFile(\\\"gc.mo\\\"); // Reads itself\", \"  String s;\", \"algorithm\", \"  for i in 1:1000 loop\", \"    // print(String(i) + \\\"\\\\n\\\");\", \"    s := String(i) + \\\"\\\\n\\\";\", \"    if noEvent(i == 1000) then print(s); end if;\", \"    for j in 1:size(str, 1) loop\", \"      // print(str[j] + \\\"\\\\n\\\");\", \"     s := str[j] + \\\"\\\\n\\\";\", \"     if  noEvent(i == 1000) then print(s); end if;\", \"    end for;\", \"  end for;\", \"end gctest;\"};
 // algorithm
 //   for i in 1:1000 loop
 //     s := String(i, 0, true) + \"