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 0d5e25526c59f5dcbd5b6f7e311ae67c0b2d9b59..95ba8aa5faf40be70a8228ecc58fa5ef9f6e3ea3 100644 (file)
--- 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 01954cb6832ec4cfd4b3e190a14773e4238d8e33..5e2cf0440fc9eccde944f18b92fbec51ce08349c 100644 (file)
--- 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