diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2015-03-25 10:15:46 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2015-03-25 10:15:46 +0000 |
| commit | 2b91aea838279a2fa5f2b09a8590e4007e87025e (patch) | |
| tree | c467d63d03b1866427667378fe81a4fc6ad7d7ea /gcc/fortran/gfortran.h | |
| parent | bbf043c2d27b67d949912a3cdb2f9eb6fabcd51f (diff) | |
| download | gcc-2b91aea838279a2fa5f2b09a8590e4007e87025e.zip gcc-2b91aea838279a2fa5f2b09a8590e4007e87025e.tar.gz gcc-2b91aea838279a2fa5f2b09a8590e4007e87025e.tar.bz2 | |
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.
From-SVN: r221657
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 8e6595f..24d56c0 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1691,6 +1691,9 @@ typedef struct gfc_namespace Holds -1 during resolution. */ signed resolved:2; + /* Set when resolve_types has been called for this namespace. */ + unsigned types_resolved:1; + /* Set to 1 if code has been generated for this namespace. */ unsigned translated:1; |