diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-04-26 19:27:50 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-04-26 19:27:50 +0000 |
| commit | 5846213b872f73949db3a85c7da529aa8941dd99 (patch) | |
| tree | 627a6547015316bec10ca0cb4869fd5c4695b060 /gcc/fortran/data.c | |
| parent | 17c665a9974c98d2835680cdc6fd92408f1c87f3 (diff) | |
| download | gcc-5846213b872f73949db3a85c7da529aa8941dd99.zip gcc-5846213b872f73949db3a85c7da529aa8941dd99.tar.gz gcc-5846213b872f73949db3a85c7da529aa8941dd99.tar.bz2 | |
re PR fortran/39893 ([4.4] gfortran ICE on invalid program)
2009-04-26 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/39893
* gfortran.dg/assumed_charlen_dummy.f90: New Test.
2009-04-26 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/39893
fortran/data.c (gfc_assign_data_value): If the lvalue is an
assumed character length entity in a data statement, then
return FAILURE to prevent segmentation fault.
From-SVN: r146816
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 09dde15..5829c7f 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -416,7 +416,11 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index) } if (ref || last_ts->type == BT_CHARACTER) - expr = create_character_intializer (init, last_ts, ref, rvalue); + { + if (lvalue->ts.cl->length == NULL && !(ref && ref->u.ss.length != NULL)) + return FAILURE; + expr = create_character_intializer (init, last_ts, ref, rvalue); + } else { /* Overwriting an existing initializer is non-standard but usually only |