[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / io09.f90
blob495cbf059005cd74a9ec0ca7912ca9ca4ebf5205
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 !ERROR: String edit descriptor in READ format expression
3 read(*,'("abc")')
5 !ERROR: String edit descriptor in READ format expression
6 !ERROR: Unterminated format expression
7 read(*,'("abc)')
9 !ERROR: 'H' edit descriptor in READ format expression
10 read(*,'(3Habc)')
12 !ERROR: 'H' edit descriptor in READ format expression
13 !ERROR: Unterminated format expression
14 read(*,'(5Habc)')
16 !ERROR: 'I' edit descriptor 'w' value must be positive
17 read(*,'(I0)')
18 end