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