re PR libfortran/47439 (Fun with scratch files on Windows MKTEMP only allows for...

[official-gcc.git] / gcc / testsuite / gfortran.dg / scratch_1.f90

! { dg-do run }
! Check that we can open more than 26 scratch files concurrently
  integer :: i
  do i = 1, 3000
    print *, i
    open(100+i,status="scratch")
  end do
end