fortran select case code example Example: fortran select case select case(a) case(1) case default end select