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
