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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cee836cc8a348a59f92d767b215f1ac430bee227..52482aa80966acebc06780488c23c6fe0778586d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/internal_pack_3.f90 b/gcc/testsuite/gfortran.dg/internal_pack_3.f90
index 8312e1d22650e9aa10834226dd35aac346559344..08f3c7d15edde491d9a25cf5f6137cbcdedd61c9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/internal_pack_3.f90
+++ b/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