[Patch/gfortran] PR18109, 18283 & 19107

[Paul Thomas]

I think that I must be some kind of glutton for punishment!  I take it 
from the latest exchanges that the injunction to commit at will for this 
kind of patch is withdrawn?

Anway, it's more of the same and will have to follow any corrections 
that we make to the previous patch.  PRs 18109 and 19107 have already 
been seen on the list.

There are a number of similar problems that are not the subject of PRs. 
 I will try to develop solutions to these and the other remaining 
character PRs whilst I am away.

2005-05-30 Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/18109
    PR fortran/18283
    PR fortran/19107
    * fortran/trans-array.c (gfc_conv_expr_descriptor): Obtain the
    string length from the expression typespec character length value
    and set temp_ss->stringlength and backend_decl. Obtain the
    tree expression from gfc_conv_expr rather than gfc_conv_expr_val.
    Dereference the expression to obtain the character.
    * fortran/trans-expr.c (gfc_conv_component_ref): Remove the
    dereference of scalar character pointer structure components.
    * fortran/trans-expr.c (gfc_trans_subarray_assign): Obtain the
    string length for the structure component from the component
    expression.


2005-05-30 Paul Thomas <pault@gcc.gnu.org>

    * gfortran.dg/char_initialiser_actual.f90:
    Test character initialisers as actual arguments.
    * gfortran.dg/char_pointer_comp_assign.f90:
    Test character pointer structure component assignments.
    * gfortran.dg/char_array_structure_constructor.f90:
    Test character components in structure constructors.

Bubblestrapped and regtested on i686/RH9.  OK to commit to 4.1, at least?

Paul T



-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: patch20050530.patch
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050530/75815bbc/attachment.ksh>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: char_initialiser_actual.f90
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050530/75815bbc/attachment.f90>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: char_pointer_comp_assign.f90
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050530/75815bbc/attachment-0001.f90>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: char_array_structure_constructor.f90
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20050530/75815bbc/attachment-0002.f90>