blob: 718e82cead982f4eb7042b8a36eb201c2281fc90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
subroutine foo (x, msg1, msg2)
integer x
character(len=*) :: msg1, msg2
if (x == 0) then
!$omp error at(execution)
else if (x == 1) then
!$omp error severity (warning), at (execution)
else if (x == 2) then
!$omp error at ( execution ) severity (fatal) message ("baz")
else if (x == 3) then
!$omp error severity(warning) message (msg1) at(execution)
else
!$omp error message (msg2), at(execution), severity(fatal)
end if
end
|
