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