| ! { dg-do run } | |
| ! Test that we can write an unformatted stream file without | |
| ! truncating. | |
| program main | |
| character (len=10) c | |
| open(10, form="unformatted", access="stream", position="rewind") | |
| write (10) '1234567890abcde' | |
| c = '' | |
| read (10,pos=1) c | |
| if (c /= '1234567890') STOP 1 | |
| c = '' | |
| read (10,pos=6) c | |
| if (c /= '67890abcde') STOP 2 | |
| write (10,pos=3) 'AB' | |
| c = '' | |
| read (10,pos=1) c | |
| if (c /= '12AB567890') STOP 3 | |
| c = '' | |
| read (10,pos=6) c | |
| if (c /= '67890abcde') STOP 4 | |
| close (10,status="delete") | |
| end program main |