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