50 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 character(kind=1,len=100) msg13 character(kind=2,len=200) msg24 character, parameter :: const_msg = 'doof'5 integer(1) stat16 integer(2) stat27 integer(8) stat88 9 open(10)10 11 backspace(10)12 backspace(10, iomsg=msg1, iostat=stat1, err=9)13 14 endfile(unit=10)15 endfile(iostat=stat2, err=9, unit=10, iomsg=msg1)16 17 rewind(10)18 rewind(iomsg=msg1, iostat=stat2, err=9, unit=10)19 20 flush(10)21 flush(iomsg=msg1, unit=10, iostat=stat8, err=9)22 23 wait(10)24 wait(99, id=id1, end=9, eor=9, err=9, iostat=stat1, iomsg=msg1)25 26 !ERROR: Duplicate UNIT specifier27 backspace(10, unit=11)28 29 !ERROR: Duplicate IOSTAT specifier30 endfile(iostat=stat2, err=9, unit=10, iostat=stat8, iomsg=msg1)31 32 !ERROR: IOMSG variable 'const_msg' is not definable33 !BECAUSE: '"d"' is not a variable or pointer34 flush(iomsg=const_msg, unit=10, iostat=stat8, err=9)35 36 !ERROR: REWIND statement must have a UNIT number specifier37 rewind(iostat=stat2)38 39 !ERROR: Duplicate ERR specifier40 flush(err=9, unit=10, &41 err=9, &42 err=9)43 44 !ERROR: Duplicate ID specifier45 !ERROR: WAIT statement must have a UNIT number specifier46 wait(id=id2, eor=9, id=id3)47 489 continue49end50