diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-06-03 11:14:51 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-06-03 11:14:51 +0000 |
| commit | 5b9a3332c27e2f4ea372f2fc53bcbd27e204fb73 (patch) | |
| tree | d015315146730a48895c8f167a12153e06f89093 /gcc/fortran/decl.c | |
| parent | 12193bf1b0143795b460c96ebd609321f9663398 (diff) | |
| download | gcc-5b9a3332c27e2f4ea372f2fc53bcbd27e204fb73.zip gcc-5b9a3332c27e2f4ea372f2fc53bcbd27e204fb73.tar.gz gcc-5b9a3332c27e2f4ea372f2fc53bcbd27e204fb73.tar.bz2 | |
re PR fortran/36497 (USE association, cray pointers and error checking)
2018-06-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/36497
* decl.c (variable_decl): Use gfc_add_type for cray pointees.
2018-06-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/36497
* gfortran.dg/cray_pointer_12.f90: New test.
From-SVN: r261127
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 13 |
1 files changed, 6 insertions, 7 deletions
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) |