! { dg-do compile }
! PR fortran/66725
!
program foo

   open(unit=1,access = 999)        ! { dg-error "ACCESS requires" }
   open(unit=1,action = 999)        ! { dg-error "ACTION requires" }
   open(unit=1,asynchronous = 999)  ! { dg-error "ASYNCHRONOUS requires" }
   open(unit=1,blank = 999)         ! { dg-error "BLANK requires" }
   open(unit=1,decimal = 999)       ! { dg-error "DECIMAL requires" }
   open(unit=1,delim = 999)         ! { dg-error "DELIM requires" }
   open(unit=1,encoding = 999)      ! { dg-error "ENCODING requires" }
   open(unit=1,form = 999)          ! { dg-error "FORM requires" }
   open(unit=1,pad = 999)           ! { dg-error "PAD requires" }
   open(unit=1,position = 999)      ! { dg-error "POSITION requires" }
   open(unit=1,round = 999)         ! { dg-error "ROUND requires" }
   open(unit=1,sign = 999)          ! { dg-error "SIGN requires" }
   open(unit=1,status = 999)        ! { dg-error "STATUS requires" }

   close(unit=1, status=999)        ! { dg-error "STATUS requires" }

   write (unit=1, asynchronous=257) ! { dg-error "ASYNCHRONOUS requires" }
   write (unit=1, delim=257)        ! { dg-error "DELIM requires" }
   write (unit=1, decimal=257)      ! { dg-error "DECIMAL requires" }
   write (unit=1, round=257)        ! { dg-error "ROUND requires" }
   write (unit=1, sign=257)         ! { dg-error "SIGN requires" }

   write (unit=1, blank=257)        ! { dg-error "BLANK requires" }
   write (unit=1, pad=257)          ! { dg-error "PAD requires" }

end program foo