! Program to test the arithmetic if statement | |
function testif (a) | |
implicit none | |
integer a, b, testif | |
if (a) 1, 2, 3 | |
b = 2 | |
goto 4 | |
1 b = -1 | |
goto 4 | |
2 b = 0 | |
goto 4 | |
3 b = 1 | |
4 testif = b | |
end function | |
program testwrite | |
implicit none | |
integer i | |
integer testif | |
if (testif (-10) .ne. -1) call abort | |
if (testif (0) .ne. 0) call abort | |
if (testif (10) .ne. 1) call abort | |
end program |