diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-04 04:45:41 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-04 04:45:41 +0000 |
| commit | 23838e80a1447a71d295e1596b18ab6f0a5ad708 (patch) | |
| tree | 81c4a8a9536d0e135c5a39dcfe10068f375f0ec9 /gcc/fortran/interface.c | |
| parent | e56ff3c4d0cbacf16758f87a3e2051db06888bf6 (diff) | |
| download | gcc-23838e80a1447a71d295e1596b18ab6f0a5ad708.tar.gz | |
2007-10-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33542
* interface.c (check_interface1): Revert patch of 2007-10-02.
2007-10-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33542
* gfortran.dg/ambiguous_specific_1.f90: Remove.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129000 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 651351727a5..741bba57520 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1044,8 +1044,7 @@ check_interface1 (gfc_interface *p, gfc_interface *q0, if (p->sym->name == q->sym->name && p->sym->module == q->sym->module) continue; - if (compare_interfaces (p->sym, q->sym, generic_flag) - || p->sym->name == q->sym->name) + if (compare_interfaces (p->sym, q->sym, generic_flag)) { if (referenced) { |