Your Fortran program is not legal since the value of i outside the loop
is not defined. Over the years, I have seen are 6, 7 and runtime error
(although you are not likely to see the latter with slack modern
workstation compilers) as a value.

I would suggest putting the print of i*i inside a block if.