diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-02-20 14:17:42 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-02-20 14:17:42 +0000 |
| commit | b93a9a15ee1975ab5aafad34748dec06a74a161d (patch) | |
| tree | 8bbdbe2e19cce1d964e582a0ca0b4bede3717c98 /gcc/fortran/interface.c | |
| parent | 705d3b776dbf4f447230e6dce2271eec219c89af (diff) | |
| download | gcc-b93a9a15ee1975ab5aafad34748dec06a74a161d.zip gcc-b93a9a15ee1975ab5aafad34748dec06a74a161d.tar.gz gcc-b93a9a15ee1975ab5aafad34748dec06a74a161d.tar.bz2 | |
re PR fortran/79599 (typo in diagnostic gfc_error ("DTIO dummy argument at %L be a scalar")
2017-02-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79599
* interface.c (check_dtio_arg_TKR_intent): Supply 'must'
missing from error message.
2017-02-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79523
* interface.c (gfc_find_typebound_dtio_proc): Guard test for
flavor attribute by checking that symbol is resolved.
From-SVN: r245603
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 5cf0237..53701f2 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -4615,7 +4615,7 @@ check_dtio_arg_TKR_intent (gfc_symbol *fsym, bool typebound, bt type, && rank == 0 && (((type == BT_CLASS) && CLASS_DATA (fsym)->attr.dimension) || ((type != BT_CLASS) && fsym->attr.dimension))) - gfc_error ("DTIO dummy argument at %L be a scalar", + gfc_error ("DTIO dummy argument at %L must be a scalar", &fsym->declared_at); else if (rank == 1 && (fsym->as == NULL || fsym->as->type != AS_ASSUMED_SHAPE)) @@ -4829,7 +4829,7 @@ gfc_find_typebound_dtio_proc (gfc_symbol *derived, bool write, bool formatted) gfc_symtree *tb_io_st = NULL; bool t = false; - if (!derived || derived->attr.flavor != FL_DERIVED) + if (!derived || !derived->resolved || derived->attr.flavor != FL_DERIVED) return NULL; /* Try to find a typebound DTIO binding. */ |