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