brintos / llvm-project-archived public Read only

Text · 155 B · 1b79c98 Raw

9 lines · plain

1! RUN: %python %S/test_errors.py %s %flang_fc12 3program test4  real, device :: b(100) ! ok5  block6    real, device :: a(100) ! ok7  end block8end program9