Throw an error if COMP-1 and COMP-2 are used (#611)

Author: kio-watanabe

cobj/parser.c

@@ -2889,8 +2889,16 @@ usage_clause:
 usage:
   BINARY			{ current_field->usage = CB_USAGE_BINARY; }
 | COMP				{ current_field->usage = CB_USAGE_BINARY; }
-| COMP_1			{ current_field->usage = CB_USAGE_FLOAT; }
-| COMP_2			{ current_field->usage = CB_USAGE_DOUBLE; }
+| COMP_1			
+{
+	current_field->usage = CB_USAGE_FLOAT; 
+	cb_error (_("COMP-1 not implemented"));
+}
+| COMP_2			
+{ 
+	current_field->usage = CB_USAGE_DOUBLE; 
+	cb_error (_("COMP-2 not implemented"));
+}
 | COMP_3			{ current_field->usage = CB_USAGE_PACKED; }
 | COMP_4			{ current_field->usage = CB_USAGE_BINARY; }
 | COMP_5			{ current_field->usage = CB_USAGE_COMP_5; }

cobj/parser.y

@@ -241,7 +241,8 @@ misc_DEPENDENCIES = \
 	misc.src/search-occurs-depending.at \
 	misc.src/fix-subtract.at \
 	misc.src/display-numeric-NUMERIC-class.at \
-	misc.src/display-inspect-sign.at
+	misc.src/display-inspect-sign.at \
+	misc.src/comp1-comp2.at
 
 EXTRA_DIST = $(srcdir)/package.m4 \
 	$(TESTS) \

tests/Makefile.am

@@ -780,7 +780,8 @@ misc_DEPENDENCIES = \
 	misc.src/search-occurs-depending.at \
 	misc.src/fix-subtract.at \
 	misc.src/display-numeric-NUMERIC-class.at \
-	misc.src/display-inspect-sign.at
+	misc.src/display-inspect-sign.at \
+	misc.src/comp1-comp2.at
 
 EXTRA_DIST = $(srcdir)/package.m4 \
 	$(TESTS) \

tests/Makefile.in

@@ -55,3 +55,4 @@ m4_include([search-occurs-depending.at])
 m4_include([fix-subtract.at])
 m4_include([display-numeric-NUMERIC-class.at])
 m4_include([display-inspect-sign.at])
+m4_include([comp1-comp2.at])

tests/misc.at

@@ -0,0 +1,21 @@
+AT_SETUP([COMP-1 COMP-2 error])
+
+AT_DATA([prog.cbl], [
+       identification              division.
+      ******************************************************************
+       program-id.                 prog.
+      ******************************************************************
+       data                        division.
+       WORKING-STORAGE SECTION.
+       01 H COMP-1.
+       01 I COMP-2.
+       PROCEDURE DIVISION.
+       STOP RUN.
+])
+
+AT_CHECK([${COBJ} prog.cbl], [1], [],
+[prog.cbl:8: Error: COMP-1 not implemented
+prog.cbl:9: Error: COMP-2 not implemented
+])
+
+AT_CLEANUP