Fortran - 嵌套 select case 构造

• 

  简述

  你可以使用一个 select case 另一个里面的声明 select case声明。
• 

  句法

  
  select case(a) 
     case (100) 
        print*, "This is part of outer switch", a 
     select case(b) 
        case (200)
           print*, "This is part of inner switch", a 
     end select
        
  end select
  

• 

  例子

  
  program nestedSelectCase
     ! local variable definition 
     integer :: a = 100
     integer :: b = 200
   
     select case(a) 
        case (100) 
           print*, "This is part of outer switch", a 
           
        select case(b) 
           case (200)
              print*, "This is part of inner switch", a 
        end select
        
     end select
     
     print*, "Exact value of a is : ", a 
     print*, "Exact value of b is : ", b 
   
  end program nestedSelectCase
  

  编译并执行上述代码时，会产生以下结果 -

  
  This is part of outer switch 100
  This is part of inner switch 100
  Exact value of a is : 100
  Exact value of b is : 200