re PR libfortran/47439 (Fun with scratch files on Windows MKTEMP only allows for...

	PR libfortran/47439
	* gfortran.dg/scratch_1.f90: Adjust test.

From-SVN: r171180

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7ac4d78a77d6251e1e2d3d4981d8174c412b7c41..eb1256af93b984c5bd08cc1c6a4f5bd01ede3cf1 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 32bf0c45a1dd0bdaf57bb546b47052d9c22dd582..1547bfe8c5bdd818e8cd15e6c3dad0dd2b3cc605 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