re PR libfortran/32972 (performance of pack/unpack)

2008-03-20  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32972
	* gfortran.dg/internal_pack_3.f90:  Add missing parameter
	in subroutine.

From-SVN: r133368

gcc/testsuite/ChangeLog

+2008-03-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR libfortran/32972
+	* gfortran.dg/internal_pack_3.f90:  Add missing parameter
+	in subroutine.
+
 2008-03-20  Kai Tietz  <kai.tietz@onevision.com>
 
 	* gcc.dg/format/ms_array-1.c: New.

gcc/testsuite/gfortran.dg/internal_pack_3.f90

@@ -13,6 +13,7 @@ program main
 end program main
 
 subroutine sub_ik(i)
+  integer,parameter :: k = selected_int_kind (range (0_8) + 1)
   integer(kind=k), dimension(2) :: i
   if (i(1) /= -1) call abort
   if (i(2) /= -3) call abort