From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Sat, 19 Mar 2011 14:35:05 +0000 (+0000)
Subject: re PR libfortran/47439 (Fun with scratch files on Windows  MKTEMP only allows for... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=16e329fbae1208a4d576fb8e383f827200c2bb41;p=gcc.git

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7ac4d78a77d..eb1256af93b 100644
--- 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 32bf0c45a1d..1547bfe8c5b 100644
--- 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