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
+2007-10-04 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/33542
+ * interface.c (check_interface1): Revert patch of 10-02.
+
2007-10-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/26682
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)
{
+2007-10-04 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/33542
+ * gfortran.dg/ambiguous_specific_1.f90: Remove.
+
2007-10-03 Alexandre Oliva <aoliva@redhat.com>
* g++.dg/ext/gnu-inline-global-redecl.C: New.
+++ /dev/null
-! { dg-do compile }
-! Checks the fix for PR33542, in which the ambiguity in the specific
-! interfaces of foo was missed.
-!
-! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
-!
-MODULE M1
- INTERFACE FOO
- MODULE PROCEDURE FOO2
- END INTERFACE
-CONTAINS
- SUBROUTINE FOO2(I)
- INTEGER, INTENT(IN) :: I
- WRITE(*,*) 'INTEGER'
- END SUBROUTINE FOO2
-END MODULE M1
-
-MODULE M2
- INTERFACE FOO
- MODULE PROCEDURE FOO2
- END INTERFACE
-CONTAINS
- SUBROUTINE FOO2(R)
- REAL, INTENT(IN) :: R
- WRITE(*,*) 'REAL'
- END SUBROUTINE FOO2
-END MODULE M2
-
-PROGRAM P
- USE M1 ! { dg-error "Ambiguous interfaces" }
- USE M2
- implicit none
- external bar
- CALL FOO(10)
- CALL FOO(10.)
-END PROGRAM P
-! { dg-final { cleanup-modules "m1 m2" } }