diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-04 03:13:34 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-04 03:13:34 +0000 |
| commit | 6d5554a7713a3a57b18a2de808da7a7ab200c782 (patch) | |
| tree | c5a083495522524a84bac615dd2bb9a3f6f9916e /gcc/fortran/openmp.c | |
| parent | e832f3ac2baba4b403fbc4ffc5da80d16bda1fe9 (diff) | |
2017-03-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/79841
* openmp.c (check_symbol_not_pointer): Adjust diagnostic.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@245891 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 3ca23493251f..753dc5ada592 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -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", sym->name, name, &loc); 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); if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointee) gfc_error ("Cray pointee object of derived type %qs in %s clause at %L", |