From 5b9a3332c27e2f4ea372f2fc53bcbd27e204fb73 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 3 Jun 2018 11:14:51 +0000 Subject: re PR fortran/36497 (USE association, cray pointers and error checking) 2018-06-03 Paul Thomas PR fortran/36497 * decl.c (variable_decl): Use gfc_add_type for cray pointees. 2018-06-03 Paul Thomas PR fortran/36497 * gfortran.dg/cray_pointer_12.f90: New test. From-SVN: r261127 --- gcc/fortran/decl.c | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'gcc/fortran/decl.c') diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 2fca8ad..df21ce0 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2431,7 +2431,7 @@ variable_decl (int elem) } if (not_constant) - { + { gfc_error ("Explicit shaped array with nonconstant bounds at %C"); m = MATCH_ERROR; goto cleanup; @@ -2535,13 +2535,12 @@ variable_decl (int elem) gfc_find_symbol (name, gfc_current_ns, 1, &sym); if (sym != NULL && sym->attr.cray_pointee) { - sym->ts.type = current_ts.type; - sym->ts.kind = current_ts.kind; - sym->ts.u.cl = cl; - sym->ts.u.derived = current_ts.u.derived; - sym->ts.is_c_interop = current_ts.is_c_interop; - sym->ts.is_iso_c = current_ts.is_iso_c; m = MATCH_YES; + if (!gfc_add_type (sym, ¤t_ts, &gfc_current_locus)) + { + m = MATCH_ERROR; + goto cleanup; + } /* Check to see if we have an array specification. */ if (cp_as != NULL) -- cgit v1.1