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 7d6cd5e7a38d0b795f865f7e551ce2bd3ce26dce..449d6f52ca7ce8507cce3efd56edd6024e3bc1aa 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 1c22ab911bcd39bbaf8e69bcf887618e0ebb6b65..082e90ecc0d387eb57f693396362254cb41a7919 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)