2 ! Testcase for the GNU extension OPEN(...,ACCESS="APPEND")
4 close (10,status="delete")
6 open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" }
8 close (10,status="keep")
9 open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" }
11 close (10,status="keep")
15 if (i /= 42) call abort
17 if (i /= -42) call abort
18 close (10,status="delete")
21 ! { dg-output ".*Extension.*Extension" }