From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 10 May 2009 10:22:37 +0000 (+0000)
Subject: re PR fortran/40018 (ICE in output_constructor)
X-Git-Tag: releases/gcc-4.5.0~5820
X-Git-Url: https://gcc.gnu.org/git/?a=commitdiff_plain;h=082b1749a179b056f33db0e6971ad1edeca17cdc;p=gcc.git

re PR fortran/40018 (ICE in output_constructor)

2009-05-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/40018
	* trans-array.c (gfc_trans_array_constructor_value): Fold
	convert numeric constants.
	(gfc_build_constant_array_constructor): The same.

2009-05-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/40018
	* gfortran.dg/array_constructor_31.f90: New test.

From-SVN: r147332
---

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_31.f90 b/gcc/testsuite/gfortran.dg/array_constructor_31.f90
new file mode 100644
index 000000000000..02936340ffcc
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/array_constructor_31.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! Test the fix for pr40018 in which the elements in the array
+! constructor would be of default type and this would cause an
+! ICE in the backend because of the type mistmatch with 'i'.
+!
+! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+!
+  integer(kind=8) :: i
+  write(*,*) [(i, i = 1, 10)]
+  end