bug in fortran test