re PR fortran/79841 (Inconsistent diagnostics in fortran/openmp.c, function check_symbol_not_pointer)
2017-03-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/79841 * openmp.c (check_symbol_not_pointer): Adjust diagnostic. From-SVN: r245891
This commit is contained in:
parent
6fdea83ec0
commit
ea6c757a1c
|
@ -1,3 +1,8 @@
|
||||||
|
2017-03-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR fortran/79841
|
||||||
|
* openmp.c (check_symbol_not_pointer): Adjust diagnostic.
|
||||||
|
|
||||||
2017-02-28 Paul Thomas <pault@gcc.gnu.org>
|
2017-02-28 Paul Thomas <pault@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/79739
|
PR fortran/79739
|
||||||
|
|
|
@ -3732,7 +3732,7 @@ check_symbol_not_pointer (gfc_symbol *sym, locus loc, const char *name)
|
||||||
gfc_error ("POINTER object %qs of derived type in %s clause at %L",
|
gfc_error ("POINTER object %qs of derived type in %s clause at %L",
|
||||||
sym->name, name, &loc);
|
sym->name, name, &loc);
|
||||||
if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointer)
|
if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointer)
|
||||||
gfc_error ("Cray pointer object of derived type %qs in %s clause at %L",
|
gfc_error ("Cray pointer object %qs of derived type in %s clause at %L",
|
||||||
sym->name, name, &loc);
|
sym->name, name, &loc);
|
||||||
if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointee)
|
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 of derived type %qs in %s clause at %L",
|
||||||
|
|
Loading…
Reference in New Issue