Proper Put_Line with bounded-sized strings

AdaGenerator.py

@@ -452,7 +452,7 @@ def write_statement(param, newline):
                                          string=string,
                                          to=basic_type.Max),
                                  "end if;"])
-                string = localstr
+                string = u'{}({})'.format(localstr, range_len)
     elif type_kind in ('IntegerType', 'RealType',
                        'BooleanType', 'Integer32Type'):
         code, string, local = expression(param)

opengeode.py

@@ -1959,7 +1959,8 @@ def opengeode():
     init_logging(options)
 
     LOG.debug('Starting OpenGEODE version ' + __version__)
-    if any((options.check, options.toAda, options.png, options.pdf, options.svg, options.llvm)):
+    if any((options.check, options.toAda, options.png, options.pdf,
+            options.svg, options.llvm)):
         return cli(options)
     else:
         return gui(options)

tests/regression/test6/Makefile

@@ -4,7 +4,7 @@ test-parse:
 	../../../opengeode.py myfunction.pr system_structure.pr --check
 
 test-ada:
-	../../../opengeode.py --toAda myfunction.pr system_structure.pr
+	../../../opengeode.py --toAda myfunction.pr system_structure.pr || exit 1
 	asn1.exe -Ada dataview-uniq.asn -typePrefix asn1Scc -equal
 	gnatmake -c myfunction.adb
 	gcc -c test.c