[Patch, fortran] PR66681 - Wrong result in assigning this_image() to a complex coarray

[Paul Richard Thomas <paul dot richard dot thomas at gmail dot com>]

Dear All,

This is something of a corner case, where gfc_conv_expr comes back
with a SAVE_EXPR, in the case of complex, scalar, coarray lvalues. The
first field of the SAVE_EXPR is a perfectly viable expression to
assign to, so I have taken that. If anybody out there has a better
solution, please speak up! The testcase is good, anyway....

Discussed on https://groups.google.com/forum/#!topic/opencoarrays/Cl2iK3OfUTs

Bootstrapped and regtested on FC21/x86_64 - OK for trunk?

Paul

2015-09-08  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/66681
    * trans-expr.c (gfc_trans_assignment_1): If the lvalue is a
    complex type and a save_expr, take the field to be assigned to.

2015-09-08  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/66681
    * gfortran.dg/coarray_40.f90: New test.

Attachment: submit.diff
Description: Text document