diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-03-17 18:21:08 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-03-17 18:21:08 +0000 |
| commit | 2da189b6ead100a2741fbc27abdad5bc479ac828 (patch) | |
| tree | 0a4a5d5099af4026d6660cd59688d072030cf046 | |
| parent | d1132c1bc5328086e388b39d0387f6bafad90e65 (diff) | |
| download | gcc-2da189b6ead100a2741fbc27abdad5bc479ac828.zip gcc-2da189b6ead100a2741fbc27abdad5bc479ac828.tar.gz gcc-2da189b6ead100a2741fbc27abdad5bc479ac828.tar.bz2 | |
re PR fortran/79841 (Inconsistent diagnostics in fortran/openmp.c, function check_symbol_not_pointer)
2017-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/79841
* openmp.c (check_symbol_not_pointer): Adjust diagnostics.
From-SVN: r246241
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/openmp.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ffad618..55dc649 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2017-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/79841 + * openmp.c (check_symbol_not_pointer): Adjust diagnostics. + 2017-03-16 Jakub Jelinek <jakub@redhat.com> PR fortran/80010 diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 46f8952..11f4efb 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -3735,7 +3735,7 @@ check_symbol_not_pointer (gfc_symbol *sym, locus loc, const char *name) gfc_error ("Cray pointer object %qs of derived type in %s clause at %L", sym->name, name, &loc); if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointee) - gfc_error ("Cray pointee object of derived type %qs in %s clause at %L", + gfc_error ("Cray pointee object %qs of derived type in %s clause at %L", sym->name, name, &loc); if ((sym->ts.type == BT_ASSUMED && sym->attr.pointer) @@ -3746,12 +3746,12 @@ check_symbol_not_pointer (gfc_symbol *sym, locus loc, const char *name) if ((sym->ts.type == BT_ASSUMED && sym->attr.cray_pointer) || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) && CLASS_DATA (sym)->attr.cray_pointer)) - gfc_error ("Cray pointer object of polymorphic type %qs in %s clause at %L", + gfc_error ("Cray pointer object %qs of polymorphic type in %s clause at %L", sym->name, name, &loc); if ((sym->ts.type == BT_ASSUMED && sym->attr.cray_pointee) || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) && CLASS_DATA (sym)->attr.cray_pointee)) - gfc_error ("Cray pointee object of polymorphic type %qs in %s clause at %L", + gfc_error ("Cray pointee object %qs of polymorphic type in %s clause at %L", sym->name, name, &loc); } |