[Bug fortran/65532] [5 Regression] Unexpected error with legacy code (D1MACH)

[mikael at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65532

--- Comment #7 from Mikael Morin <mikael at gcc dot gnu.org> ---
Author: mikael
Date: Wed Mar 25 10:15:46 2015
New Revision: 221657

URL: https://gcc.gnu.org/viewcvs?rev=221657&root=gcc&view=rev
Log:
Fix regression introduced at revision 221586.

    PR fortran/64952
    PR fortran/65532
fortran/
    * gfortran.h (struct gfc_namespace): New field 'types_resolved'.
    * resolve.c (resolve_types): Return early if field 'types_resolved'
    is set.  Set 'types_resolved' at the end.
testsuite/
    * gfortran.dg/data_initialized_3.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/data_initialized_3.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog