pure function zzeros_1(n) result(A) integer, intent(in) :: n complex(8) :: A(n) A = zero end function zzeros_1