1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! { dg-do compile }
! PR fortran/66725
!
program foo
open(unit=1,access = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,action = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,asynchronous = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,blank = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,decimal = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,delim = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,encoding = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,form = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,pad = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,position = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,round = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,sign = 999) ! { dg-error "must be of type CHARACTER" }
open(unit=1,status = 999) ! { dg-error "must be of type CHARACTER" }
close(unit=1, status=999) ! { dg-error "must be of type CHARACTER" }
write (unit=1, asynchronous=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, delim=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, decimal=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, round=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, sign=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, blank=257) ! { dg-error "must be of type CHARACTER" }
write (unit=1, pad=257) ! { dg-error "must be of type CHARACTER" }
end program foo
|
