14 lines
No EOL
197 B
Text
14 lines
No EOL
197 B
Text
program test
|
|
integer :: a, b, c, d, x, y, z, w
|
|
a = 2 + 4 * (2 + 1) / 3 * b
|
|
b = a
|
|
if (a > b) then
|
|
a = x
|
|
elif (a > c) then
|
|
a = y
|
|
elif (a > d) then
|
|
a = z
|
|
else
|
|
a = w
|
|
end if
|
|
end program |