| ! { dg-do run } |
| ! Testcase for the GNU extension OPEN(...,ACCESS="APPEND") |
| open (10,file="foo") |
| close (10,status="delete") |
| |
| open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" } |
| write (10,*) 42 |
| close (10,status="keep") |
| open (10,file="foo",access="append") ! { dg-warning "Extension: ACCESS specifier in OPEN statement" } |
| write (10,*) -42 |
| close (10,status="keep") |
| |
| open (10,file="foo") |
| read (10,*) i |
| if (i /= 42) call abort |
| read (10,*) i |
| if (i /= -42) call abort |
| close (10,status="delete") |
| |
| end |
| ! { dg-output ".*Extension.*Extension" } |