re PR fortran/22327 ([4.0 only] Wrong code in array constructor)

2005-07-07  Feng Wang  <fengwang@nudt.edu.cn>

	PR fortran/22327
	* trans-array.c (gfc_trans_array_constructor_value): Fix index of data.

2005-07-07  Feng Wang  <fengwang@nudt.edu.cn>

	PR fortran/22327
	* gfortran.dg/array_constructor_5.f90: New test.

From-SVN: r101682

gcc/fortran/ChangeLog

+2005-07-07  Feng Wang  <fengwang@nudt.edu.cn>
+
+	PR fortran/22327
+	* trans-array.c (gfc_trans_array_constructor_value): Fix index of data.
+
 2005-07-07  Jakub Jelinek  <jakub@redhat.com>
 
 	* decl.c (gfc_match_entry): Allow ENTRY without parentheses

gcc/fortran/trans-array.c

@@ -862,7 +862,7 @@ gfc_trans_array_constructor_value (stmtblock_t * pblock, tree type,
 	      gfc_add_expr_to_block (&body, tmp);
 
 	      *poffset = fold_build2 (PLUS_EXPR, gfc_array_index_type,
-				      *poffset, bound);
+				      *poffset, build_int_cst (NULL_TREE, n));
 	    }
 	  if (!INTEGER_CST_P (*poffset))
             {

gcc/testsuite/ChangeLog

+2005-07-07  Feng Wang  <fengwang@nudt.edu.cn>
+
+	PR fortran/22327
+	* gfortran.dg/array_constructor_5.f90: New test.
+
 2005-07-07  Jakub Jelinek  <jakub@redhat.com>
 
 	* gfortran.fortran-torture/execute/entry_9.f90: New test.

gcc/testsuite/gfortran.dg/array_constructor_5.f90

+! { dg-do run }
+! PR22327
+program array_constructor
+    implicit none
+    integer :: a(6), i
+    i = 6
+    a = (/ 1, 2, 3, 4, 5, i /)
+    do i = 1, 6
+        if (a(i) /= i) call abort()
+    end do
+end program array_constructor