longjmp for Fortran