Fix

OCamlPro · Jun 12, 2024 · d54fb0c · d54fb0c
1 parent 67f4382
commit d54fb0c
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 13 deletions.
diff --git a/cobc/codegen.c b/cobc/codegen.c
@@ -1841,15 +1841,15 @@ output_gnucobol_defines (const char *formatted_date)
 
 		l = cb_include_file_list_directive;
 		while (l) {
-		  struct cb_text_list *last = l;
+			struct cb_text_list *last = l;
 			if (l->text[0] == '<') {
 				output_line ("#include %s", l->text);
 			} else {
 				output_line ("#include \"%s\"", l->text);
 			}
-		  l = l->next;
-		  cobc_free (last->text);
-		  cobc_free (last);
+			l = l->next;
+			cobc_free (last->text);
+			cobc_free (last);
 		}
 	}
 }

diff --git a/cobc/scanner.l b/cobc/scanner.l
@@ -2798,5 +2798,3 @@ cb_find_defined_program_by_id (const char *orig_id)
 
 	return NULL;
 }
-
-
diff --git a/tests/testsuite.src/used_binaries.at b/tests/testsuite.src/used_binaries.at
@@ -1083,7 +1083,7 @@ AT_CLEANUP
 
 
 AT_SETUP([check include header file])
-#AT_KEYWORDS([include])
+#AT_KEYWORDS([include imp])
 
 AT_DATA([file.h], [
 COB_EXT_IMPORT void f (char *, long);
@@ -1138,12 +1138,6 @@ AT_CHECK([$COMPILE_MODULE -Wno-unfinished --copy "f.copy" -fstatic-call prog2.co
 [prog2.cob:8: warning: unexpected RETURNING item
 ])
 
-AT_CLEANUP
-
-
-AT_SETUP([check include header file with directive])
-#AT_KEYWORDS([imp include])
-
 AT_DATA([file.h], [
 COB_EXT_IMPORT void f (char *, long);
 ])