9 lines
No EOL
134 B
Text
9 lines
No EOL
134 B
Text
program test
|
|
integer :: a, b
|
|
real :: c
|
|
a = 2 + 4 * (2 + 1) / 3 * b
|
|
b = a
|
|
if (a == b .and. c > b) then
|
|
b = b + 1
|
|
end if
|
|
end program |