gcc/testsuite/gfortran.dg/scratch_1.f90

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