module gcd_module contains integer function gcd(a, b) implicit none integer, intent (in) :: a, b integer :: temp if (a