diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 9482a7b6b27844b64820fa8a64480d3f82feb229..9705498e8b3956fc80e9c1d45162c59fb56b645f 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -1022,6 +1022,10 @@ static void
 initialize_variable_internal(cbl_refer_t refer, bool explicitly=false)
   {
   cbl_field_t *parsed_var = refer.field;
+  if( parsed_var->type == FldLiteralA )
+    {
+    return;
+    }
 
   if( parsed_var->is_key_name() )
     {
@@ -14698,6 +14702,11 @@ parser_local_add(struct cbl_field_t *new_var )
 void
 parser_symbol_add(struct cbl_field_t *new_var )
   {
+  if( new_var->type == FldLiteralA )
+    {
+    return;
+    }
+
   if( new_var->var_decl_node )
     {
     if( new_var->type != FldConditional )
diff --git a/gcc/cobol/show_parse.h b/gcc/cobol/show_parse.h
index e31aca20d74257d2c076a704a419ecc7bff08b6b..a5890438b80016f925c8250dee96654115d184f2 100644
--- a/gcc/cobol/show_parse.h
+++ b/gcc/cobol/show_parse.h
@@ -388,7 +388,7 @@ extern bool cursor_at_sol;
             warnx("%s(): parameter " #a " is NULL", __func__); \
             gcc_assert(false);  \
             }                   \
-        if( !a->var_decl_node && a->type != FldConditional )  \
+        if( !a->var_decl_node && a->type != FldConditional && a->type != FldLiteralA)  \
             {                   \
             warnx("%s() parameter " #a " is variable %s<%s> with NULL var_decl_node", \
                 __func__,       \