| commit | 172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a | |
| author | Thomas Koenig <tkoenig@netcologne.de> | |
| Thu, 4 Jun 2015 18:55:29 +0000 (4 18:55 +0000) | ||
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | |
| Thu, 4 Jun 2015 18:55:29 +0000 (4 18:55 +0000) | ||
| tree | a0495acfb0cbb7d3ee7d28f41f79a808937a429f | treesnapshot (tar.gz zip) |
| parent | ecb9f2236c92410b0517c8ab9906c5e007f24570 | commitdiff |
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
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