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