[patch, committed] Fix error in test case

[Thomas Koenig]

Committed as obvious.  This is one of the easier cases of testsuite
failures with -fdefault-integer-8 :-)

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.

Index: gfortran.dg/array_constructor_12.f90
===================================================================
--- gfortran.dg/array_constructor_12.f90        (revision 127044)
+++ gfortran.dg/array_constructor_12.f90        (working copy)
@@ -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)