diff --git a/cobc/ChangeLog b/cobc/ChangeLog
index 0cd9925e2..08bd36e33 100644
--- a/cobc/ChangeLog
+++ b/cobc/ChangeLog
@@ -853,6 +853,11 @@
 	* tree.c: fix bug #772 check for report field missing PIC
 	  when using SUM clause
 
+2021-12-21  Samuel Belondrade <samuel.belondrade@atos.net>
+
+	* codegen.c (output_base): fix undeclared variable with REDEFINE GLOBAL
+	  [bugs:#777]
+
 2021-12-14  Simon Sobisch <simonsobisch@gnu.org>
 
 	* cobc.c (print_fields), codegen.c (output_field_display): only check for
diff --git a/cobc/codegen.c b/cobc/codegen.c
index 3a29149b5..dc8086f81 100644
--- a/cobc/codegen.c
+++ b/cobc/codegen.c
@@ -1059,7 +1059,7 @@ output_base (struct cb_field *f, const cob_u32_t no_output)
 				bl = cobc_parse_malloc (sizeof (struct base_list));
 				bl->f = f01;
 				bl->curr_prog = excp_current_program_id;
-				if (f01->flag_is_global ||
+				if (f01->flag_is_global || f->flag_is_global ||
 				    current_prog->flag_file_global) {
 					bl->next = base_cache;
 					base_cache = bl;
diff --git a/tests/testsuite.src/run_fundamental.at b/tests/testsuite.src/run_fundamental.at
index d40838af5..da03e3e7c 100644
--- a/tests/testsuite.src/run_fundamental.at
+++ b/tests/testsuite.src/run_fundamental.at
@@ -1272,6 +1272,25 @@ AT_CHECK([$COBCRUN_DIRECT ./prog], [0],
 AT_CLEANUP
 
 
+AT_SETUP([GLOBAL REDEFINES])
+AT_KEYWORDS([fundamental])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. prog.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 T0 PIC X VALUE "X".
+       01 T1 REDEFINES T0 PIC X GLOBAL.
+       PROCEDURE DIVISION.
+          DISPLAY T1.
+])
+
+AT_CHECK([$COMPILE prog.cob], [0], [], [])
+
+AT_CLEANUP
+
+
 AT_SETUP([function with variable-length RETURNING item])
 AT_KEYWORDS([fundamental udf])