diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-06-04 23:01:02 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-06-04 23:01:02 +0200 |
| commit | a67cfde819ff41fafec5466008b7c95b3e97a7f9 (patch) | |
| tree | bccbf3f0fda042ea03b8ff1a7688b96787648115 /gcc/fortran/resolve.c | |
| parent | 0e1dd874f84a29af7ee2fd8dd04766bc777035cf (diff) | |
| download | gcc-a67cfde819ff41fafec5466008b7c95b3e97a7f9.zip gcc-a67cfde819ff41fafec5466008b7c95b3e97a7f9.tar.gz gcc-a67cfde819ff41fafec5466008b7c95b3e97a7f9.tar.bz2 | |
re PR fortran/50619 (Surprising interaction between -finit-real=NAN and the associate construct)
2012-06-04 Tobias Burnus <burnus@net-b.de>
PR fortran/50619
* resolve.c (build_default_init_expr): Don't initialize
ASSOCIATE names.
2012-06-04 Tobias Burnus <burnus@net-b.de>
PR fortran/50619
* gfortran.dg/init_flag_10.f90: New.
From-SVN: r188208
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 3627b71..61a1381 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10103,7 +10103,8 @@ build_default_init_expr (gfc_symbol *sym) || sym->attr.data || sym->module || sym->attr.cray_pointee - || sym->attr.cray_pointer) + || sym->attr.cray_pointer + || sym->assoc) return NULL; /* Now we'll try to build an initializer expression. */ |