re PR fortran/69566 ([OOP] Failure of SELECT TYPE with unlimited polymorphic function...
authorPaul Thomas <pault@gcc.gnu.org>
Fri, 21 Oct 2016 12:50:56 +0000 (12:50 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Fri, 21 Oct 2016 12:50:56 +0000 (12:50 +0000)
commitde514d407ef8af0b0ba377d8934348702cf87d05
tree8c272f3218f0e29691939ff45b3f7f5bd4e1a7af
parentdfe08bc4ef2810b98e0ce8ffca4155ad304e0429
re PR fortran/69566 ([OOP] Failure of SELECT TYPE with unlimited polymorphic function result)

2016-10-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/69566
* resolve.c (fixup_array_ref): New function.
(resolve_select_type): Gather up the rank and array reference,
if any, from the selector. Fix up the 'associate name' and the
'associate entities' as necessary.
* trans-expr.c (gfc_conv_class_to_class): If the symbol backend
decl is a FUNCTION_DECL, use the 'fake_result_decl' instead.

2016-10-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/69566
* gfortran.dg/select_type_37.f03: New test.

From-SVN: r241403
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/fortran/trans-expr.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/select_type_37.f03 [new file with mode: 0644]