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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133368 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cee836c..52482aa 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 8312e1d..08f3c7d 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