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

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / select_5.f90

diff --git a/gcc/testsuite/gfortran.dg/select_5.f90 b/gcc/testsuite/gfortran.dg/select_5.f90
index b1478e6..2e2997c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/select_5.f90
+++ b/gcc/testsuite/gfortran.dg/select_5.f90
@@ -1,7 +1,7 @@
 ! { dg-do run }
 ! Test mismatched type kinds in a select statement.
 program select_5
-  integer*1 i          ! kind = 1, -128 <= i < 127
+  integer(kind=1) i          ! kind = 1, -128 <= i < 127
   do i = 1, 3
     select case (i)     
     case (1_4)         ! kind = 4, reachable