diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-08-19 03:00:54 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-08-19 03:00:54 +0000 |
commit | 88898d1e1ec4e2240b52818cef4981dd85585a31 (patch) | |
tree | 56ebc1bc0f11c30ffc592891e099f0efbd8dac06 /gcc/fortran/module.c | |
parent | e00f86581f977cc6ad5ac9558a83f569aba76772 (diff) | |
download | gcc-88898d1e1ec4e2240b52818cef4981dd85585a31.zip gcc-88898d1e1ec4e2240b52818cef4981dd85585a31.tar.gz gcc-88898d1e1ec4e2240b52818cef4981dd85585a31.tar.bz2 |
re PR fortran/91485 (Erroneous conflict between variable x and operator(.x.))
2019-08-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91485
module.c (gfc_match_use): User defined operator cannot conflict with
a rename symbol.
2019-08-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91485
* gfortran.dg/pr91485.f90: New test.
From-SVN: r274630
Diffstat (limited to 'gcc/fortran/module.c')
-rw-r--r-- | gcc/fortran/module.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index fb6173d..533445e 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -647,7 +647,7 @@ gfc_match_use (void) new_use->op = INTRINSIC_USER; st = gfc_find_symtree (gfc_current_ns->sym_root, name); - if (st) + if (st && type != INTERFACE_USER_OP) { if (m == MATCH_YES) gfc_error ("Symbol %qs at %L conflicts with the rename symbol " |