Warning/wunused variable

.github/workflows/workflow.yml

@@ -0,0 +1,32 @@
+name: NIST COBOL85 tests
+on:
+  push:
+  pull_request:
+    types: [opened, reopened, review_requested]
+
+jobs:
+  run-tests:
+    runs-on: ubuntu-latest
+    steps:
+      # Checkout opensource COBOL
+      - name: Checkout opensource COBOL
+        uses: actions/checkout@v2
+
+      - name: Install dependencies
+        run: |
+          sudo apt-get update
+          sudo apt-get install -y build-essential libncurses-dev libgmp-dev bison flex gettext automake autoconf
+
+      - name: Install opensource COBOL
+        run: |
+          cd vbisam
+          ./configure --prefix=/usr/
+          sudo make install
+          cd ../
+          ./configure --prefix=/usr/ --with-vbisam
+          sudo make install
+
+      - name: run NIST tests
+        run: |
+          cd tests/cobol85
+          make test

cobc/cobc.c

@@ -1168,7 +1168,7 @@ process_command_line (const int argc, char *argv[])
 #ifdef _MSC_VER
 			strcat (cob_define_flags, "/I ");
 #else
-			strcat (cob_define_flags, "-I");
+			strcat (cob_define_flags, " -I");
 #endif
 			strcat (cob_define_flags, "\"");
 			strcat (cob_define_flags, optarg);

cobc/typeck.c

@@ -220,111 +220,10 @@ static const char	*const bin_sub_funcs[] = {
 	"cob_subswp_s56_binary",
 	"cob_subswp_s64_binary"
 };
-
-static const char	*const align_bin_compare_funcs[] = {
-	"cob_cmp_u8_binary",
-	"cob_cmp_align_u16_binary",
-	"cob_cmp_u24_binary",
-	"cob_cmp_align_u32_binary",
-	"cob_cmp_u40_binary",
-	"cob_cmp_u48_binary",
-	"cob_cmp_u56_binary",
-	"cob_cmp_align_u64_binary",
-	"cob_cmp_s8_binary",
-	"cob_cmp_align_s16_binary",
-	"cob_cmp_s24_binary",
-	"cob_cmp_align_s32_binary",
-	"cob_cmp_s40_binary",
-	"cob_cmp_s48_binary",
-	"cob_cmp_s56_binary",
-	"cob_cmp_align_s64_binary",
-	"cob_cmp_u8_binary",
-	"cob_cmpswp_align_u16_binary",
-	"cob_cmpswp_u24_binary",
-	"cob_cmpswp_align_u32_binary",
-	"cob_cmpswp_u40_binary",
-	"cob_cmpswp_u48_binary",
-	"cob_cmpswp_u56_binary",
-	"cob_cmpswp_align_u64_binary",
-	"cob_cmp_s8_binary",
-	"cob_cmpswp_align_s16_binary",
-	"cob_cmpswp_s24_binary",
-	"cob_cmpswp_align_s32_binary",
-	"cob_cmpswp_s40_binary",
-	"cob_cmpswp_s48_binary",
-	"cob_cmpswp_s56_binary",
-	"cob_cmpswp_align_s64_binary"
-};
-
-static const char	*const align_bin_add_funcs[] = {
-	"cob_add_u8_binary",
-	"cob_add_align_u16_binary",
-	"cob_add_u24_binary",
-	"cob_add_align_u32_binary",
-	"cob_add_u40_binary",
-	"cob_add_u48_binary",
-	"cob_add_u56_binary",
-	"cob_add_align_u64_binary",
-	"cob_add_s8_binary",
-	"cob_add_align_s16_binary",
-	"cob_add_s24_binary",
-	"cob_add_align_s32_binary",
-	"cob_add_s40_binary",
-	"cob_add_s48_binary",
-	"cob_add_s56_binary",
-	"cob_add_align_s64_binary",
-	"cob_add_u8_binary",
-	"cob_addswp_u16_binary",
-	"cob_addswp_u24_binary",
-	"cob_addswp_u32_binary",
-	"cob_addswp_u40_binary",
-	"cob_addswp_u48_binary",
-	"cob_addswp_u56_binary",
-	"cob_addswp_u64_binary",
-	"cob_add_s8_binary",
-	"cob_addswp_s16_binary",
-	"cob_addswp_s24_binary",
-	"cob_addswp_s32_binary",
-	"cob_addswp_s40_binary",
-	"cob_addswp_s48_binary",
-	"cob_addswp_s56_binary",
-	"cob_addswp_s64_binary"
-};
-
-static const char	*const align_bin_sub_funcs[] = {
-	"cob_sub_u8_binary",
-	"cob_sub_align_u16_binary",
-	"cob_sub_u24_binary",
-	"cob_sub_align_u32_binary",
-	"cob_sub_u40_binary",
-	"cob_sub_u48_binary",
-	"cob_sub_u56_binary",
-	"cob_sub_align_u64_binary",
-	"cob_sub_s8_binary",
-	"cob_sub_align_s16_binary",
-	"cob_sub_s24_binary",
-	"cob_sub_align_s32_binary",
-	"cob_sub_s40_binary",
-	"cob_sub_s48_binary",
-	"cob_sub_s56_binary",
-	"cob_sub_align_s64_binary",
-	"cob_sub_u8_binary",
-	"cob_subswp_u16_binary",
-	"cob_subswp_u24_binary",
-	"cob_subswp_u32_binary",
-	"cob_subswp_u40_binary",
-	"cob_subswp_u48_binary",
-	"cob_subswp_u56_binary",
-	"cob_subswp_u64_binary",
-	"cob_sub_s8_binary",
-	"cob_subswp_s16_binary",
-	"cob_subswp_s24_binary",
-	"cob_subswp_s32_binary",
-	"cob_subswp_s40_binary",
-	"cob_subswp_s48_binary",
-	"cob_subswp_s56_binary",
-	"cob_subswp_s64_binary"
-};
+/**
+ *  * Add a sample comment
+ *   
+ */
 
 /* functions */
 

libcob/call.c

@@ -586,7 +586,6 @@ cob_init_call (void)
 #ifndef	COB_ALT_HASH
 	call_table = cob_malloc (sizeof (struct call_hash *) * HASH_SIZE);
 #endif
-
 	call_filename_buff = cob_malloc (CALL_FILEBUFF_SIZE);
 	call_entry_buff = cob_malloc (COB_SMALL_BUFF);
 	call_entry2_buff = cob_malloc (COB_SMALL_BUFF);

libcob/common.c

@@ -1813,7 +1813,7 @@ cob_accept_time (cob_field *f)
 	time_t		t;
 #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
 	struct timeval	tmv;
-	char		buff2[8];
+	char		buff2[17];
 #endif
 #endif
 	char		s[12];