diff options
| author | Damian Rouson <damian@sourceryinstitute.org> | 2019-10-13 17:16:40 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-13 17:16:40 +0000 |
| commit | 51a6a4044c9eed53d86b3f79ca5c3c7b87ade39d (patch) | |
| tree | 6673f4326e8f02402502f3d4eeb2a061615e69cf /gcc/fortran/resolve.c | |
| parent | 5284fba56ec3392a61b2fe066027253868274156 (diff) | |
| download | gcc-51a6a4044c9eed53d86b3f79ca5c3c7b87ade39d.zip gcc-51a6a4044c9eed53d86b3f79ca5c3c7b87ade39d.tar.gz gcc-51a6a4044c9eed53d86b3f79ca5c3c7b87ade39d.tar.bz2 | |
re PR fortran/91513 (Non-standard terminology in error message for pointer component assignment in pure procedure)
2019-10-13 Damian Rouson <damain@sourceryinstitue.org>
PR fortran/91513
* resolve.c (resolve_ordinary_assign): Improved error message.
2019-10-13 Damian Rouson <damain@sourceryinstitue.org>
PR fortran/91513
* gfortran.dg/impure_assignment_2.f90: Update dg-error regex.
From-SVN: r276941
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 10da8f9..93f2d0a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10769,9 +10769,12 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) "component in a PURE procedure", &rhs->where); else - gfc_error ("The impure variable at %L is assigned to " - "a derived type variable with a POINTER " - "component in a PURE procedure (12.6)", + /* F2008, C1283 (4). */ + gfc_error ("In a pure subprogram an INTENT(IN) dummy argument " + "shall not be used as the expr at %L of an intrinsic " + "assignment statement in which the variable is of a " + "derived type if the derived type has a pointer " + "component at any level of component selection.", &rhs->where); return rval; } |