From 42e25796b5a0f59d44e06c4e0a8e1c203b953fbc Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Sun, 11 Dec 2005 00:39:14 +0000
Subject: [PATCH] Fix testsuite after this commit:

   2005-12-10  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

    PR fortran/25068
    * gfortran.dg/iostat_3.f90: New test.

From-SVN: r108371
---
 gcc/testsuite/ChangeLog                    | 4 ++++
 gcc/testsuite/gfortran.dg/g77/19981216-0.f | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cc1e2618ecd..5edcf7d2e5e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-12-11  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/g77/19981216-0.f: Fix for fortran/25068.
+
 2005-12-11  Bernhard Fischer  <rep.nop@aon.at>
 
 	* gfortran.dg/substring_equivalence.f90: typo in comment
diff --git a/gcc/testsuite/gfortran.dg/g77/19981216-0.f b/gcc/testsuite/gfortran.dg/g77/19981216-0.f
index 9460bd9cb71..81e96bfd312 100644
--- a/gcc/testsuite/gfortran.dg/g77/19981216-0.f
+++ b/gcc/testsuite/gfortran.dg/g77/19981216-0.f
@@ -29,7 +29,7 @@ c { dg-do compile }
 
         name = 'blah'
         open(unit=8,status='unknown',file=name,form='formatted',
-     F       iostat=ios)
+     F       iostat=ios) ! { dg-warning "integer kind in IOSTAT" }
 
       END
 * -------------------------------------------