Add select-Case snippet for Fortran