gcc/testsuite/gfortran.dg/scratch_1.f90


1
2
3
4
5
6
7
8
9

! { dg-do run }
! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } }
! Check that we can open more than 26 scratch files concurrently
  integer :: i
  do i = 1, 30
    print *, i
    open(100+i,status="scratch")
  end do
end