1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index f16f8d3f72e..425bd36275b 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -2000,13 +2000,9 @@ mio_charlen (gfc_charlen **clp)
     {
       if (peek_atom () != ATOM_RPAREN)
 	{
-	  cl = gfc_get_charlen ();
+	  cl = gfc_new_charlen (gfc_current_ns);
 	  mio_expr (&cl->length);
-
 	  *clp = cl;
-
-	  cl->next = gfc_current_ns->cl_list;
-	  gfc_current_ns->cl_list = cl;
 	}
     }