25 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12!C11173 4subroutine test1(a, i)5 integer i6 real a(10)7 one: critical8 if (a(i) < 0.0) then9 a(i) = 20.2010 end if11 !ERROR: CRITICAL construct name mismatch12 end critical two13end subroutine test114 15subroutine test2(a, i)16 integer i17 real a(10)18 critical19 if (a(i) < 0.0) then20 a(i) = 20.2021 end if22 !ERROR: CRITICAL construct name unexpected23 end critical two24end subroutine test225