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

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

From-SVN: r171180

gcc/testsuite/ChangeLog

-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.

gcc/testsuite/gfortran.dg/scratch_1.f90

 ! { 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