nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / iostat_2.f90
blobf4887bf815b5f8a45de89739c0759733c6bb1eae
1 ! PR libfortran/23784
2 ! { dg-do run }
3 integer i
4 close(10, status="whatever", iostat=i) ! { dg-warning "STATUS specifier in CLOSE statement.*has invalid value" }
5 if (i == 0) STOP 1
6 write(17,*) 'foo'
7 close(17, status="delete")
8 end