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