Add test case

rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/InterpreterTest.kt

@@ -1399,6 +1399,12 @@ Test 6
         assertEquals(expected, outputOf("GOTOTST9"))
     }
 
+    @Test
+    fun executeGOTOTST10() {
+        val expected = listOf("ok", "ok")
+        assertEquals(expected, outputOf("GOTOTST10"))
+    }
+
     @Test
     fun executeGotoENDSR() {
         assertEquals(listOf("1", "2", "3"), outputOf("GOTOENDSR"))

rpgJavaInterpreter-core/src/test/resources/GOTOTST10.rpgle

@@ -0,0 +1,13 @@
+     V* ==============================================================
+     V* 25/11/2024 APU002 Creation
+     V* ==============================================================
+    O * PROGRAM GOAL
+    O * Execute a subroutine with a CALL to a program performing a top-level GOTO
+     V* ==============================================================
+     C                   EXSR      SR1
+     C                   SETON                                          LR
+
+     C     SR1           BEGSR
+     C                   CALL      'GOTOTST10B'
+     C     'ok'          DSPLY
+     C                   ENDSR

rpgJavaInterpreter-core/src/test/resources/GOTOTST10B.rpgle

@@ -0,0 +1,10 @@
+     V* ==============================================================
+     V* 25/11/2024 APU002 Creation
+     V* ==============================================================
+    O * PROGRAM GOAL
+    O * Being called by 'GOTOTST10.rpgle'
+     V* ==============================================================
+     C                   GOTO      TAG1
+     C     'ko'          DSPLY
+     C     TAG1          TAG
+     C     'ok'          DSPLY