[Bug fortran/55199] [OOP] Equivalenced variable has wrong type when used with generic member function

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55199

--- Comment #4 from janus at gcc dot gnu.org 2012-11-04 13:40:16 UTC ---
(In reply to comment #3)
> regtesting now ...

Somewhat expected, this fails on:

FAIL: gfortran.dg/associate_1.f03  -O0  (test for excess errors)
FAIL: gfortran.dg/associate_10.f90  -O  (test for excess errors)



> gfortran-4.8 -cpp associate_1.f03 
associate_1.f03:79.10:

    IF (x%comp /= 1) CALL abort ()
          1
Error: Symbol 'x' at (1) has no IMPLICIT type
associate_1.f03:82.10:

    IF (x%comp /= 5) CALL abort ()
          1
Error: Symbol 'x' at (1) has no IMPLICIT type



> gfortran-4.8 associate_10.f90 
associate_10.f90:19.12:

      x1(1)%i = 1
            1
Error: Symbol 'x1' at (1) has no IMPLICIT type
associate_10.f90:21.12:

      y1(1)%i = 2
            1
Error: Symbol 'y1' at (1) has no IMPLICIT type