Puedes usar uno select case declaración dentro de otra select case declaración (es).
Sintaxis
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
Ejemplo
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
Cuando el código anterior se compila y ejecuta, produce el siguiente resultado:
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