print *,GetSqr(n) end Program ! Returns the square of n integer function GetSqr(x) integer::x GetSqr= x*x end function GetSqr |
print
*,GetSquare(n) end Program ! Returns the square of n integer function GetSquare(x) integer::x GetSquare=x*x end function GetSquare |