diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-19 14:35:05 +0000 |
---|---|---|
committer | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-19 14:35:05 +0000 |
commit | c76a82f2bf6f6e39aeb70957613da544fcabf230 (patch) | |
tree | cddc45943cc9ed23744a88db96be86b80e8fa296 | |
parent | 42d2b1f2bc45c439920759054d6c6f98eca85893 (diff) |
PR libfortran/47439
* gfortran.dg/scratch_1.f90: Adjust test.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@171180 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
-rw-r--r-- | 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 <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 |