re PR fortran/21435 (fails to open nonexisting file with status scratch)

[gcc.git] / gcc / testsuite / gfortran.dg / pr20163-2.f

diff --git a/gcc/testsuite/gfortran.dg/pr20163-2.f b/gcc/testsuite/gfortran.dg/pr20163-2.f
index c0b2573ed93a314a2797f2f7f7ec3d3679cf988d..0638aeaf9ddbe35b24436bc31565185a81323056 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20163-2.f
+++ b/gcc/testsuite/gfortran.dg/pr20163-2.f
@@ -1,4 +1,4 @@
-       open(10,status="foo",err=100)
+       open(10,status="foo",err=100) ! { dg-warning "STATUS specifier in OPEN statement .* has invalid value" }
        call abort
   100  continue
        open(10,status="scratch")