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