2005-12-17 Steven G. Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / g77 / 19990502-1.f

diff --git a/gcc/testsuite/gfortran.dg/g77/19990502-1.f b/gcc/testsuite/gfortran.dg/g77/19990502-1.f
index ce5343d..dde2769 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/19990502-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990502-1.f
@@ -1,6 +1,6 @@
 c { dg-do compile }
       SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY)
-      INTEGER*2 IGAMS(2,NADC)
+      INTEGER(kind=2) IGAMS(2,NADC)
       in = 1
       do while (in.le.nadc.and.IGAMS(2,in).le.in)
       enddo