1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3!C1117 4 5subroutine test1(a, i) 6 integer i 7 real a(10) 8 one: critical 9 if (a(i) < 0.0) then 10 a(i) = 20.20 11 end if 12 !ERROR: CRITICAL construct name mismatch 13 end critical two 14end subroutine test1 15 16subroutine test2(a, i) 17 integer i 18 real a(10) 19 critical 20 if (a(i) < 0.0) then 21 a(i) = 20.20 22 end if 23 !ERROR: CRITICAL construct name unexpected 24 end critical two 25end subroutine test2 26