xref: /llvm-project/flang/test/Semantics/cuf12.cuf (revision 3090efc6b65be0aa26b2ed0b734eef6efdd50322) 
1! RUN: %python %S/test_errors.py %s %flang_fc1
2
3program test
4  real, device :: b(100) ! ok
5  block
6    real, device :: a(100) ! ok
7  end block
8end program
9