PR fortran/15314

	* trans-expr.c (gfc_conv_structure): Use field type, not expr type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81816 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 180bc22..e32d188 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-13  Paul Brook  <paul@codesourcery.com>
+
+       PR fortran/15314
+       * trans-expr.c (gfc_conv_structure): Use field type, not expr type.
+
 2004-05-13  Joseph S. Myers  <jsm@polyomino.org.uk>
 
        * gfortran.texi: Use @table @emph instead of @itemize @emph.

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 864b006..1f98f9e 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -1292,20 +1292,15 @@ gfc_conv_structure (gfc_se * se, gfc_expr * expr, int init)
       /* Evaluate the expression for this component.  */
       if (init)
        {
-         switch (c->expr->expr_type)
+         if (cm->dimension)
            {
-           case EXPR_ARRAY:
              arraytype = TREE_TYPE (cm->backend_decl);
              cse.expr = gfc_conv_array_initializer (arraytype, c->expr);
-             break;
-
-           case EXPR_STRUCTURE:
-             gfc_conv_structure (&cse, c->expr, 1);
-             break;
-
-           default:
-             gfc_conv_expr (&cse, c->expr);
            }
+         else if (cm->ts.type == BT_DERIVED)
+           gfc_conv_structure (&cse, c->expr, 1);
+         else
+           gfc_conv_expr (&cse, c->expr);
        }
       else
        {