flang/test/Semantics/io09.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3   !ERROR: String edit descriptor in READ format expression
   4   read(*,'("abc")')
   5
   6   !ERROR: String edit descriptor in READ format expression
   7   !ERROR: Unterminated format expression
   8   read(*,'("abc)')
   9
  10   !ERROR: 'H' edit descriptor in READ format expression
  11   read(*,'(3Habc)')
  12
  13   !ERROR: 'H' edit descriptor in READ format expression
  14   !ERROR: Unterminated format expression
  15   read(*,'(5Habc)')
  16
  17   !ERROR: 'I' edit descriptor 'w' value must be positive
  18   read(*,'(I0)')
  19 end