014. if-else if-end if block

topic: Conditionals

if-block.f90 | | |

integer :: i

do i = -1, 1
   print *, i
   if (i < 0) then
      print *, "negative"
   else if (i == 0) then
      print *, "zero"
   else
      print *, "positive"
   end if
end do

end

Output1

          -1
 negative
           0
 zero
           1
 positive

---

If-elseif-endif block:

integer :: i
do i=-1,1
print*,i
if (i < 0) then
print*,"negative"
else if (i == 0) then
print*,"zero"
else
print*,"positive"
end if
end do
end

— FortranTip (@fortrantip) December 18, 2021

---

1

Compiled using GNU Fortran (Ubuntu 11.3.0-1ubuntu1~22.04) 11.3.0 with no flags