This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/79072] ICE with class(*) pointer function result and character value
- From: "pault at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Mon, 20 Nov 2017 19:10:05 +0000
- Subject: [Bug fortran/79072] ICE with class(*) pointer function result and character value
- Auto-submitted: auto-generated
- References: <bug-79072-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79072
--- Comment #15 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Mon Nov 20 19:09:34 2017
New Revision: 254966
URL: https://gcc.gnu.org/viewcvs?rev=254966&root=gcc&view=rev
Log:
2017-11-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79072
* trans-expr.c (trans_class_vptr_len_assignment): Set from_len
if the temporary is unlimited polymorphic.
* trans-stmt.c (trans_associate_var): Use the fake result decl
to obtain the 'len' field from an explicit function result when
in that function scope.
2017-11-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79072
* gfortran.dg/class_result_5.f90: New test.
Added:
trunk/gcc/testsuite/gfortran.dg/class_result_5.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/trans-expr.c
trunk/gcc/fortran/trans-stmt.c
trunk/gcc/testsuite/ChangeLog