forked from OSchip/llvm-project
25 lines
463 B
Fortran
25 lines
463 B
Fortran
! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
|
|
!C1117
|
|
|
|
subroutine test1(a, i)
|
|
integer i
|
|
real a(10)
|
|
one: critical
|
|
if (a(i) < 0.0) then
|
|
a(i) = 20.20
|
|
end if
|
|
!ERROR: CRITICAL construct name mismatch
|
|
end critical two
|
|
end subroutine test1
|
|
|
|
subroutine test2(a, i)
|
|
integer i
|
|
real a(10)
|
|
critical
|
|
if (a(i) < 0.0) then
|
|
a(i) = 20.20
|
|
end if
|
|
!ERROR: CRITICAL construct name unexpected
|
|
end critical two
|
|
end subroutine test2
|