| ! { dg-do run } | |
| ! PR 90461 Open file on multiple units as of F2018 | |
| program openmult | |
| implicit none | |
| character(len=*), parameter :: fname="pr90461.dat" | |
| open(10, file=fname, form="unformatted") | |
| open(11, file=fname, form="unformatted") | |
| close(11) | |
| close(10, status="delete") | |
| end program openmult | |
| ! { dg-final { remote_file build delete "pr90461.dat" } } |