/work/web_data/akira/public_html/page/Fortran/src/compilation/gfortran/select

  selectcase( i )
  case( 1:-1 )
  endselect