* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr20163-2.f
blob5849cfcb2f363fe32c5dbdfd4c12aa99a161d4af
1 ! { dg-do run }
2 open(10,status="foo",err=100) ! { dg-warning "STATUS specifier in OPEN statement .* has invalid value" }
3 call abort
4 100 continue
5 open(10,status="scratch")
6 end