Merge branch 'parser' of gitlab.cobolworx.com:COBOLworx/gcc-cobol into parser

gcc/cobol/UAT/bugsuite.src/bugs.at

@@ -87,3 +87,53 @@ PROCEDURE DIVISION USING var1 RETURNING var2.
 AT_CHECK([$COMPILE prog.cob], [1], [], [])
 AT_CLEANUP
 
+AT_SETUP([LENGTH OF errorpalooza])
+AT_KEYWORDS([bugs])
+AT_DATA([prog.cob], [
+        identification division.
+        program-id. prog.
+        data division.
+        working-storage section.
+        77 pointer-value COMP PIC S9(8) VALUE ZERO.
+        77 point-at      REDEFINES pointer-value USAGE POINTER.
+        77 vstring       PIC X(64).
+        77 vnum          PIC 999.
+        procedure division.
+        move length of vstring to vnum
+        display vnum
+        move length of vstring(12:34) to vnum
+        display vnum
+        display length of vstring
+        call "prog2" using by content length of vstring
+        call "prog3" using by value length of vstring
+        goback.
+        end program prog.
+
+        identification division.
+        program-id. prog2.
+        data division.
+        linkage section.
+        01 parm binary pic 9(9).
+        procedure division using parm.
+        display "prog2: parm is " parm
+        goback.
+        end program prog2.
+
+        identification division.
+        program-id. prog3.
+        data division.
+        linkage section.
+        01 parm binary pic 9(9).
+        procedure division using by value parm.
+        display "prog3: parm is " parm
+        goback.
+        end program prog3.
+])
+AT_CHECK([$COMPILE -dialect ibm prog.cob], [0], [], [])
+AT_CHECK([$./a.out], [0], [064
+034
+64
+prog2: parm is 000000000
+prog3: parm is 000000032
+], [])
+AT_CLEANUP