module m contains recursive integer(kind=8) function gcd(a,b)result(res) integer(kind=8)::a,b if(a