Fortran tests(just for learn)