Integer :: x
Read *, x
Select Case (x)
Case (1)
Print *, 'one'
Case (2)
Print *, 'two'
End Select
End
Example input 11
Execution Resultsone
Example input 22
Execution Resultstwo
<Example Program>
| Program end_select_example Integer :: x Read *, x Select Case (x) Case (1) Print *, 'one' Case (2) Print *, 'two' End Select End |
|
| Example input 1 1 Execution Resultsone |
|
| Example input 2 2 Execution Resultstwo |
|