[Bug fortran/58749] PACK(ADJUSTL([" a"," b"]), [.TRUE.,.FALSE.]) causes an internal compiler error

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58749

--- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Thu Jun  4 18:55:29 2015
New Revision: 224137

URL: https://gcc.gnu.org/viewcvs?rev=224137&root=gcc&view=rev
Log:
2015-06-04  Thomas Koenig  <tkoe...@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  <tkoe...@netcologne.de>

        PR fortran/58749
        * gfortran.dg/adjustl_1.f90:  New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/adjustl_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/iresolve.c
    trunk/gcc/testsuite/ChangeLog