mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
32 lines
1.5 KiB
Fortran
32 lines
1.5 KiB
Fortran
! { 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
|