You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
446 B
25 lines
446 B
! RUN: %S/test_errors.sh %s %t %f18
|
|
!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
|