From aaba94ddc43c2a3425df8e6624d3f659faa6b5db Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Sat, 19 Mar 2011 14:35:05 +0000 Subject: [PATCH] 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 --- 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 7ac4d78..eb1256a 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 32bf0c4..1547bfe 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.7.4