This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/58749] PACK(ADJUSTL([" a"," b"]), [.TRUE.,.FALSE.]) causes an internal compiler error
- From: "tkoenig at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Thu, 04 Jun 2015 18:56:01 +0000
- Subject: [Bug fortran/58749] PACK(ADJUSTL([" a"," b"]), [.TRUE.,.FALSE.]) causes an internal compiler error
- Auto-submitted: auto-generated
- References: <bug-58749-4 at http dot gcc dot gnu dot org/bugzilla/>
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 <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.
Added:
trunk/gcc/testsuite/gfortran.dg/adjustl_1.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/iresolve.c
trunk/gcc/testsuite/ChangeLog