projects / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: ecb9f22) | patch
re PR fortran/58749 (PACK(ADJUSTL([" a"," b"]), [.TRUE.,.FALSE.]) causes an internal...
authorThomas Koenig <tkoenig@netcologne.de>
Thu, 4 Jun 2015 18:55:29 +0000 (18:55 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 4 Jun 2015 18:55:29 +0000 (18:55 +0000)
commit172f0ce5ab5fa74a5695cf855c9ba7c4e98c754a
treea0495acfb0cbb7d3ee7d28f41f79a808937a429ftree
parentecb9f2236c92410b0517c8ab9906c5e007f24570commit | diff
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
gcc/fortran/ChangeLog diff | blob | history
gcc/fortran/iresolve.c diff | blob | history
gcc/testsuite/ChangeLog diff | blob | history
gcc/testsuite/gfortran.dg/adjustl_1.f90 [new file with mode: 0644] blob