diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-19 14:35:05 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-19 14:35:05 +0000 |
| commit | 16e329fbae1208a4d576fb8e383f827200c2bb41 (patch) | |
| tree | cddc45943cc9ed23744a88db96be86b80e8fa296 /gcc | |
| parent | 14bef49e533ced5c3e093f6e555ea98255af9136 (diff) | |
| download | gcc-16e329fbae1208a4d576fb8e383f827200c2bb41.zip gcc-16e329fbae1208a4d576fb8e383f827200c2bb41.tar.gz gcc-16e329fbae1208a4d576fb8e383f827200c2bb41.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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 7ac4d78..eb1256a 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 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 |