1! { dg-do compile }
2! PR fortran/66725
3!
4program foo
5
6   open(unit=1,access = 999)        ! { dg-error "ACCESS requires" }
7   open(unit=1,action = 999)        ! { dg-error "ACTION requires" }
8   open(unit=1,asynchronous = 999)  ! { dg-error "ASYNCHRONOUS requires" }
9   open(unit=1,blank = 999)         ! { dg-error "BLANK requires" }
10   open(unit=1,decimal = 999)       ! { dg-error "DECIMAL requires" }
11   open(unit=1,delim = 999)         ! { dg-error "DELIM requires" }
12   open(unit=1,encoding = 999)      ! { dg-error "ENCODING requires" }
13   open(unit=1,form = 999)          ! { dg-error "FORM requires" }
14   open(unit=1,pad = 999)           ! { dg-error "PAD requires" }
15   open(unit=1,position = 999)      ! { dg-error "POSITION requires" }
16   open(unit=1,round = 999)         ! { dg-error "ROUND requires" }
17   open(unit=1,sign = 999)          ! { dg-error "SIGN requires" }
18   open(unit=1,status = 999)        ! { dg-error "STATUS requires" }
19
20   close(unit=1, status=999)        ! { dg-error "STATUS requires" }
21
22   write (unit=1, asynchronous=257) ! { dg-error "ASYNCHRONOUS requires" }
23   write (unit=1, delim=257)        ! { dg-error "DELIM requires" }
24   write (unit=1, decimal=257)      ! { dg-error "DECIMAL requires" }
25   write (unit=1, round=257)        ! { dg-error "ROUND requires" }
26   write (unit=1, sign=257)         ! { dg-error "SIGN requires" }
27
28   write (unit=1, blank=257)        ! { dg-error "BLANK requires" }
29   write (unit=1, pad=257)          ! { dg-error "PAD requires" }
30
31end program foo
32