File tree 3 files changed +5
-4
lines changed
main/antlr4/com/broadcom/lsp/cobol/core/parser
test/java/com/broadcom/lsp/cobol/usecases
3 files changed +5
-4
lines changed Original file line number Diff line number Diff line change @@ -289,9 +289,9 @@ SHIFT_IN : S H I F T MINUSCHAR I N;
289
289
SHIFT_OUT : S H I F T MINUSCHAR O U T ;
290
290
SHORT_DATE : S H O R T MINUSCHAR D A T E ;
291
291
SIGN : S I G N ;
292
- SKIP1 : S K I P ' 1' -> skip;
293
- SKIP2 : S K I P ' 2' -> skip;
294
- SKIP3 : S K I P ' 3' -> skip;
292
+ SKIP1 : S K I P ' 1' DOT_FS ? -> skip;
293
+ SKIP2 : S K I P ' 2' DOT_FS ? -> skip;
294
+ SKIP3 : S K I P ' 3' DOT_FS ? -> skip;
295
295
SORT : S O R T ;
296
296
SORT_CONTROL : S O R T MINUSCHAR C O N T R O L ;
297
297
SORT_CORE_SIZE : S O R T MINUSCHAR C O R E MINUSCHAR S I Z E ;
Original file line number Diff line number Diff line change @@ -36,6 +36,7 @@ class TestSkipStatement {
36
36
+ " PERFORM WITH TEST BEFORE UNTIL {$ID0} = 0\n "
37
37
+ " SUBTRACT 1 FROM {$TAPARM1}\n "
38
38
+ " CALL {%'ID1'}\n "
39
+ + " SKIP1.\n "
39
40
+ " END-PERFORM.\n "
40
41
+ " SKIP2.\n "
41
42
+ " {#*PROGB}.\n "
Original file line number Diff line number Diff line change @@ -37,7 +37,7 @@ class TestSkipStatementsAllowedEverywhere {
37
37
+ " PROCEDURE DIVISION.\n "
38
38
+ " {#*PROCB}.\n "
39
39
+ " MOVE 0 TO {$VARNAME}\n "
40
- + " SKIP2\n "
40
+ + " SKIP2. \n "
41
41
+ " MOVE 0 TO {$VARNAME}.\n "
42
42
+ " SKIP3\n " ;
43
43
You can’t perform that action at this time.
0 commit comments