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