fixed a gfortran warning