＜SELECT CASE Example Program＞

Program case_construct_example
  Integer :: i
  Read *, i
  Select Case (i)
  Case (1)
    Print *, 'one'
  Case (2)
    Print *, 'two'
  End Select
End Program

＜Example input 1＞

1

■ Execution Results

 one

＜Example input 2＞

2

■ Execution Results

 two