https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79841
--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- I will commit this: diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 3ca23493..753dc5ad 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", diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 36786c03..fc22d802 100644