From: Tobias Burnus <tobias@codesourcery.com>
Date: Mon, 14 Jun 2021 12:36:20 +0000 (+0200)
Subject: Fortran: resolve.c - remove '*XCNEW' based nullifying
X-Git-Tag: basepoints/gcc-13~6890
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a893b26f7311fe65b604f12a8fa5d5d64f5454e2;p=thirdparty%2Fgcc.git

Fortran: resolve.c - remove '*XCNEW' based nullifying

gcc/fortran/ChangeLog:

	* resolve.c (resolve_variable): Remove *XCNEW used to
	nullify nullified memory.
---

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index a37ad6656457..45c3ad387ac0 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -5709,7 +5709,6 @@ resolve_variable (gfc_expr *e)
 	     part_ref.  */
 	  gfc_ref *ref = gfc_get_ref ();
 	  ref->type = REF_ARRAY;
-	  ref->u.ar = *gfc_get_array_ref();
 	  ref->u.ar.type = AR_FULL;
 	  if (sym->as)
 	    {