PR libfortran/47439

	* gfortran.dg/scratch_1.f90: Adjust test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@171180 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7ac4d78..eb1256a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,4 +1,9 @@
-2011-03-16  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+2011-03-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/47439
+       * gfortran.dg/scratch_1.f90: Adjust test.
+
+2011-03-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR libfortran/47439
        * gfortran.dg/scratch_1.f90: New test.

diff --git a/gcc/testsuite/gfortran.dg/scratch_1.f90 b/gcc/testsuite/gfortran.dg/scratch_1.f90
index 32bf0c4..1547bfe 100644 (file)
--- a/gcc/testsuite/gfortran.dg/scratch_1.f90
+++ b/gcc/testsuite/gfortran.dg/scratch_1.f90
@@ -1,7 +1,7 @@
 ! { dg-do run }
 ! Check that we can open more than 26 scratch files concurrently
   integer :: i
-  do i = 1, 3000
+  do i = 1, 30
     print *, i
     open(100+i,status="scratch")
   end do