flang/test/Semantics/io10.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
   2
   3   write(*, '(B0)')
   4   write(*, '(B3)')
   5
   6   !WARNING: Expected 'B' edit descriptor 'w' value
   7   write(*, '(B)')
   8
   9   !WARNING: Expected 'EN' edit descriptor 'w' value
  10   !WARNING: Non-standard '$' edit descriptor
  11   write(*, '(EN,$)')
  12
  13   !WARNING: Expected 'G' edit descriptor 'w' value
  14   write(*, '(3G)')
  15
  16   !WARNING: Non-standard '\' edit descriptor
  17   write(*,'(A, \)') 'Hello'
  18
  19   !WARNING: 'X' edit descriptor must have a positive position value
  20   write(*, '(X)')
  21
  22   !WARNING: Legacy 'H' edit descriptor
  23   write(*, '(3Habc)')
  24
  25   !WARNING: 'X' edit descriptor must have a positive position value
  26   !WARNING: Expected ',' or ')' in format expression
  27   !WARNING: 'X' edit descriptor must have a positive position value
  28   write(*,'(XX)')
  29
  30   !WARNING: Expected ',' or ')' in format expression
  31   write(*,'(RZEN8.2)')
  32
  33   !WARNING: Expected ',' or ')' in format expression
  34   write(*,'(3P7I2)')
  35
  36   !WARNING: Expected ',' or ')' in format expression
  37   write(*,'(5X i3)')
  38 end