re PR fortran/51966 (ICE in gfc_conv_array_constructor_expr)

2012-01-25  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51966
        * resolve.c (resolve_structure_cons): Only create an
        array constructors for nonscalars.

2012-01-25  Tobias Burnus  <burnus@net-b.de>

        PR fortran/51966
        * gfortran.dg/derived_constructor_char_3.f90: New.

From-SVN: r183511

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 264e86beafc4be1286d150ec7c231a5d95087545..ebdcbc08d9c85e3f85823388e78294b2bf98d553 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-25  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/51966
+       * resolve.c (resolve_structure_cons): Only create an
+       array constructors for nonscalars.
+
 2012-01-24  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/51948

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 71615ab63f95aa37c4332004b2b17eb16d91bd92..0ecfa0da46b83c6cf87b5cef6e1c97060984c259 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -1053,6 +1053,7 @@ resolve_structure_cons (gfc_expr *expr, int init)
          && comp->ts.u.cl->length->expr_type == EXPR_CONSTANT
          && cons->expr->ts.u.cl && cons->expr->ts.u.cl->length
          && cons->expr->ts.u.cl->length->expr_type == EXPR_CONSTANT
+         && cons->expr->rank != 0
          && mpz_cmp (cons->expr->ts.u.cl->length->value.integer,
                      comp->ts.u.cl->length->value.integer) != 0)
        {

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f932e753a1e00d22051710a642b734080e7e5923..23017801c29dcca03c9ffe034d6969db4042bd97 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-25  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/51966
+       * gfortran.dg/derived_constructor_char_3.f90: New.
+
 2012-01-24  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/51948

diff --git a/gcc/testsuite/gfortran.dg/derived_constructor_char_3.f90 b/gcc/testsuite/gfortran.dg/derived_constructor_char_3.f90
new file mode 100644 (file)
index 0000000..e238785
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/derived_constructor_char_3.f90
@@ -0,0 +1,30 @@
+! { dg-do compile }
+!
+! PR fortran/51966
+!
+! Contributed by Peter Wind
+!
+
+  type :: Deriv
+    character(len=10) :: name
+  end type
+  character(len=8), dimension(2), parameter :: &
+       DEF_ECOSYSTEMS = (/ "Gridxxxx", "StringYY" /)
+
+  type(Deriv), save :: DepEcoSystem = Deriv(DEF_ECOSYSTEMS(1))
+
+  if (DepEcoSystem%name /= "Gridxxxx" &
+      .or. DepEcoSystem%name(9:9) /= ' ' &
+      .or. DepEcoSystem%name(10:10) /= ' ') call abort()
+  DepEcoSystem%name = 'ABCDEFGHIJ'
+  call Init_EcoSystems()
+  if (DepEcoSystem%name /= "StringYY" &
+      .or. DepEcoSystem%name(9:9) /= ' ' &
+      .or. DepEcoSystem%name(10:10) /= ' ') call abort()
+
+contains
+  subroutine Init_EcoSystems()
+    integer :: i =2
+    DepEcoSystem = Deriv(DEF_ECOSYSTEMS(i))
+  end subroutine Init_EcoSystems
+end