Fortran - Construire si imbriqué

Vous pouvez en utiliser un if ou else if déclaration dans un autre if ou else if déclaration (s).

Syntaxe

La syntaxe d'un imbriqué if la déclaration est la suivante -

if ( logical_expression 1) then
   !Executes when the boolean expression 1 is true 
   …
   
   if(logical_expression 2)then 
      ! Executes when the boolean expression 2 is true 
      …
   end if
end if

Exemple

program nestedIfProg
implicit none
   ! local variable declaration
   integer :: a = 100, b= 200
 
   ! check the logical condition using if statement
   if( a == 100 ) then
  
   ! if condition is true then check the following 
      
   if( b == 200 ) then
  
   ! if inner if condition is true 
   print*, "Value of a is 100 and b is 200" 
  
   end if
   end if
   
   print*, "exact value of a is ", a
   print*, "exact value of b is ", b
 
end program nestedIfProg

Lorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant -

Value of a is 100 and b is 200
exact value of a is 100
exact value of b is 200