flang/test/Semantics/io06.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2   character(kind=1,len=100) msg1
   3   character(kind=2,len=200) msg2
   4   character, parameter :: const_msg = 'doof'
   5   integer(1) stat1
   6   integer(2) stat2
   7   integer(8) stat8
   8
   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 specifier
  27   backspace(10, unit=11)
  28
  29   !ERROR: Duplicate IOSTAT specifier
  30   endfile(iostat=stat2, err=9, unit=10, iostat=stat8, iomsg=msg1)
  31
  32   !ERROR: IOMSG variable 'const_msg' is not definable
  33   !BECAUSE: '"d"' is not a variable or pointer
  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
  48 9 continue
  49 end