＜CASE DEFAULT Example Program＞

Program case_default_example
  Integer :: i
  Read *, i
  Select Case (i)
  Case (1:)
    Print *, 'I>0'
  Case (:-1)
    Print *, 'I<0'
  Case Default
    Print *, 'I=0'
  End Select
End Program

＜Example input 1＞

1

■ Execution Results

 I>0

＜Example input 2＞

-2

■ Execution Results

 I<0

＜Example input 3＞

0

■ Execution Results

 I=0