1! RUN: %S/test_errors.sh %s %t %f18
2  character(kind=1,len=100) msg1
3  character(kind=2,len=200) msg2
4  integer(1) stat1
5  integer(2) stat2
6  integer(8) stat8
7
8  open(10)
9
10  backspace(10)
11  backspace(10, iomsg=msg1, iostat=stat1, err=9)
12
13  endfile(unit=10)
14  endfile(iostat=stat2, err=9, unit=10, iomsg=msg1)
15
16  rewind(10)
17  rewind(iomsg=msg1, iostat=stat2, err=9, unit=10)
18
19  flush(10)
20  flush(iomsg=msg1, unit=10, iostat=stat8, err=9)
21
22  wait(10)
23  wait(99, id=id1, end=9, eor=9, err=9, iostat=stat1, iomsg=msg1)
24
25  !ERROR: Duplicate UNIT specifier
26  backspace(10, unit=11)
27
28  !ERROR: Duplicate IOSTAT specifier
29  endfile(iostat=stat2, err=9, unit=10, iostat=stat8, iomsg=msg1)
30
31  !ERROR: REWIND statement must have a UNIT number specifier
32  rewind(iostat=stat2)
33
34  !ERROR: Duplicate ERR specifier
35  !ERROR: Duplicate ERR specifier
36  flush(err=9, unit=10, &
37        err=9, &
38        err=9)
39
40  !ERROR: Duplicate ID specifier
41  !ERROR: WAIT statement must have a UNIT number specifier
42  wait(id=id2, eor=9, id=id3)
43
449 continue
45end
46