1 files changed, 2 insertions, 0 deletions
diff --git a/typd_mlc.c b/typd_mlc.c
index a1aee98d..9370aefa 100644
--- a/typd_mlc.c
+++ b/typd_mlc.c
@@ -301,6 +301,8 @@ STATIC int GC_make_array_descriptor(size_t nelements, size_t size,
                                 (complex_descriptor *)one_element);
               break;
           }
+          if (EXPECT(NULL == *complex_d, FALSE)) return NO_MEM;
+
           return(COMPLEX);
       }
     }