diff options
| author | Thomas Koenig <tkoenig@netcologne.de> | 2015-06-04 18:55:29 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2015-06-04 18:55:29 +0000 |
| commit | 172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a (patch) | |
| tree | a0495acfb0cbb7d3ee7d28f41f79a808937a429f /gcc/fortran/iresolve.c | |
| parent | ecb9f2236c92410b0517c8ab9906c5e007f24570 (diff) | |
| download | gcc-172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a.zip gcc-172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a.tar.gz gcc-172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a.tar.bz2 | |
re PR fortran/58749 (PACK(ADJUSTL([" a"," b"]), [.TRUE.,.FALSE.]) causes an internal compiler error)
2015-06-04 Thomas Koenig <tkoenig@netcologne.de>
PR fortran/58749
* iresolve.c (gfc_resolve_adjustl): If string has a charlen,
copy it to the function.
(gfc_resolve_adjustr): Likewise.
2015-06-04 Thomas Koenig <tkoenig@netcologne.de>
PR fortran/58749
* gfortran.dg/adjustl_1.f90: New test.
From-SVN: r224137
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 735dcc7..b6b0fc1 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -215,6 +215,9 @@ gfc_resolve_adjustl (gfc_expr *f, gfc_expr *string) { f->ts.type = BT_CHARACTER; f->ts.kind = string->ts.kind; + if (string->ts.u.cl) + f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl); + f->value.function.name = gfc_get_string ("__adjustl_s%d", f->ts.kind); } @@ -224,6 +227,9 @@ gfc_resolve_adjustr (gfc_expr *f, gfc_expr *string) { f->ts.type = BT_CHARACTER; f->ts.kind = string->ts.kind; + if (string->ts.u.cl) + f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl); + f->value.function.name = gfc_get_string ("__adjustr_s%d", f->ts.kind); } |