re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

2007-08-03  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/32770
	* gfortran.dg/unf_read_corrupted_1.f90:  Integer variable in
	iostat must be default kind.

From-SVN: r127178

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7f6a9b7ff6a971ac9c9299d4b1e849401ed3ad69..ac0b329cfb820f03f55c97e7d7fd20bfbd63f741 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/32770
+       * gfortran.dg/unf_read_corrupted_1.f90:  Integer variable in
+       iostat must be default kind.
+
 2007-08-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        * gfortran.dg/opem_errors.f90: Revise test to pass when run under sudo.

diff --git a/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90 b/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
index 1361ca3669c47dee131e80ff32f6f12d7415dc79..e7bb441e99eec385381351dea1620eb33a30822c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
+++ b/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
@@ -4,7 +4,7 @@
 program main
   implicit none
   integer(kind=4) :: i1, i2
-  integer(kind=4) :: ios
+  integer :: ios
   character(len=50) :: msg
 
   ! Write out a truncated unformatted sequential file by