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
9end
10