Fortran test of decoding