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

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

diff --git a/gcc/testsuite/gfortran.dg/common_4.f90 b/gcc/testsuite/gfortran.dg/common_4.f90
index 9ff2123..cde2e27 100644 (file)
--- a/gcc/testsuite/gfortran.dg/common_4.f90
+++ b/gcc/testsuite/gfortran.dg/common_4.f90
@@ -4,8 +4,8 @@
 ! Check misaligned common blocks.
 program prog
   common /block/ a, b, c
-  integer*1 a
-  integer*4 b, c
+  integer(kind=1) a
+  integer b, c
   a = 1
   b = HUGE(b)
   c = 2
@@ -13,7 +13,7 @@ program prog
 end program
 subroutine foo
   common /block/ a, b, c
-  integer*1 a
-  integer*4 b, c
+  integer(kind=1) a
+  integer b, c
   if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort
 end subroutine