re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

2007-07-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/32770
	* gfortran.dg/array_constructor_12.f90:  Adjust argument
	of huge() to correct kind.

From-SVN: r127071

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7d6cd5e..449d6f5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/32770
+       * gfortran.dg/array_constructor_12.f90:  Adjust argument
+       of huge() to correct kind.
+
 2007-07-30  Ollie Wild  <aaw@google.com>
 
        * gcc.dg/cpp/counter-2.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_12.f90 b/gcc/testsuite/gfortran.dg/array_constructor_12.f90
index 1c22ab9..082e90e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_constructor_12.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_12.f90
@@ -5,7 +5,7 @@ program main
   integer (kind = 4) :: l4, step4
   integer (kind = 8), parameter :: big = 10000000000_8
 
-  l4 = huge (1)
+  l4 = huge (l4)
   u8 = l4 + 10_8
   step4 = 2
   call test ((/ (i, i = l4, u8, step4) /), l4 + 0_8, u8, step4 + 0_8)