1! { dg-do run } 2! Testcase for the GNU extension OPEN(...,ACCESS="APPEND") 3 open (10,file="foo") 4 close (10,status="delete") 5 6 open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" } 7 write (10,*) 42 8 close (10,status="keep") 9 open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" } 10 write (10,*) -42 11 close (10,status="keep") 12 13 open (10,file="foo") 14 read (10,*) i 15 if (i /= 42) call abort 16 read (10,*) i 17 if (i /= -42) call abort 18 close (10,status="delete") 19 20 end 21! { dg-output ".*Extension.*Extension" } 22