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

  selectcase( (i==0) )
  case( .true. )
  case( .false. )
  case default
  endselect