From: Daniel Kraft <d@domob.eu>
Date: Fri, 17 Dec 2010 15:29:55 +0000 (+0100)
Subject: re PR fortran/46794 (ICE on valid code involving power of small integer kinds)
X-Git-Tag: releases/gcc-4.5.3~362
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=84e3576a28f6e3a63de90d4a3ff44e5a115b3522;p=thirdparty%2Fgcc.git

re PR fortran/46794 (ICE on valid code involving power of small integer kinds)

2010-12-17  Daniel Kraft  <d@domob.eu>

	PR fortran/46794
	* gfortran.dg/power2.f90: Initialize variables.

From-SVN: r167990
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0d5e25526c59..95ba8aa5faf4 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-17  Daniel Kraft  <d@domob.eu>
+
+	PR fortran/46794
+	* gfortran.dg/power2.f90: Initialize variables.
+
 2010-12-16  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/opt13.adb: New test.
diff --git a/gcc/testsuite/gfortran.dg/power2.f90 b/gcc/testsuite/gfortran.dg/power2.f90
index 01954cb6832e..5e2cf0440fc9 100644
--- a/gcc/testsuite/gfortran.dg/power2.f90
+++ b/gcc/testsuite/gfortran.dg/power2.f90
@@ -13,6 +13,9 @@ PROGRAM main
   INTEGER(KIND=1) :: k1
   INTEGER(KIND=2) :: k2
 
+  k1 = 1_1
+  k2 = 1_2
+
   k1 = 1_1 + 1_1**k1
   k2 = 1_2 + 1_2**k2