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