Implement -Wcall-params (#353)

Author: yutaro-sakamoto

cobj/warning-help.def

@@ -38,6 +38,9 @@ CB_WARNDEF (cb_warn_constant, "constant", 1,
 CB_WARNDEF (cb_warn_parentheses, "parentheses", 1,
 	    N_("Warn lack of parentheses around AND within OR"))
 
+CB_WARNDEF (cb_warn_call_params, "call-params", 0,
+	    N_("Warn non 01/77 items for CALL params"))
+
 CB_WARNDEF (cb_warn_column_overflow, "column-overflow", 0,
 	    N_("Warn text after column 72, FIXED format"))
 

tests/Makefile.am

@@ -154,6 +154,7 @@ command_line_options_DEPENDENCIES = \
 	command-line-options.src/Wredefinition.at \
 	command-line-options.src/Wconstant.at \
 	command-line-options.src/Wparentheses.at \
+	command-line-options.src/Wcall-params.at \
 	command-line-options.src/Wcolumn-overflow.at \
 	command-line-options.src/Wterminator.at \
 	command-line-options.src/Wunreachable.at \

tests/Makefile.in

@@ -695,6 +695,7 @@ command_line_options_DEPENDENCIES = \
 	command-line-options.src/Wredefinition.at \
 	command-line-options.src/Wconstant.at \
 	command-line-options.src/Wparentheses.at \
+	command-line-options.src/Wcall-params.at \
 	command-line-options.src/Wcolumn-overflow.at \
 	command-line-options.src/Wterminator.at \
 	command-line-options.src/Wunreachable.at \

tests/command-line-options.at

@@ -13,6 +13,7 @@ m4_include([Wobsolete-Warchaic.at])
 m4_include([Wredefinition.at])
 m4_include([Wconstant.at])
 m4_include([Wparentheses.at])
+m4_include([Wcall-params.at])
 m4_include([Wcolumn-overflow.at])
 m4_include([Wterminator.at])
 m4_include([Wunreachable.at])

tests/command-line-options.src/Wcall-params.at

@@ -0,0 +1,24 @@
+AT_SETUP([-Wcolumn-overflow])
+
+AT_DATA([callee.cbl],
+[       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      callee.
+       DATA             DIVISION.
+       WORKING-STORAGE  SECTION.
+       LINKAGE          SECTION.
+       01 GRP1.
+         03 P1            PIC X(5).
+       01 GRP2.
+         03 P2 PIC X(5).
+       77 P3 PIC X(5).
+       PROCEDURE        DIVISION USING P1 GRP2 P3.
+           DISPLAY P1.
+])
+
+AT_CHECK([${COBJ} -Wcall-params callee.cbl], [1], [],
+[callee.cbl:11: Error: 'P1' not level 01 or 77
+])
+
+AT_CHECK([${COBJ} --help | grep '\-Wcall-params' > /dev/null], [0])
+
+AT_CLEANUP