From 16e329fbae1208a4d576fb8e383f827200c2bb41 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 19 Mar 2011 14:35:05 +0000 Subject: [PATCH] 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 | 7 ++++++- gcc/testsuite/gfortran.dg/scratch_1.f90 | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) 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 +2011-03-19 Francois-Xavier Coudert + + PR libfortran/47439 + * gfortran.dg/scratch_1.f90: Adjust test. + +2011-03-19 Francois-Xavier Coudert 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 -- 2.30.2