Problem with Flx_ffisom function

[Jean-Pierre Flori <jpflori@gmail.com>]

Dear all,

The following programs errors out claiming that the produced
irreducible polynomial is not anymore
(***   not an irreducible polynomial in FpX_ffintersect):

#include <stdlib.h>
#include <stdio.h>
#include <time.h>

#include <pari/pari.h>

int main (int argc, char **argv)
{
        int i;
        unsigned long l;
        long n, v;
        GEN p, f, r;

        pari_init(1<<30, 1UL<<20);

        v = 0L;

        l = unextprime(1UL<<20);
        p = stoi(l);
        n = 179L;
        f = init_Fq(p, n, v);
        i = Flx_is_irred(ZX_to_Flx(f, l), l);
        pari_printf("%d\n", i);

        t = clock();
/*
        The following works fine.
*/
        r = FpX_ffisom(f, f, p);
        pari_printf("%Ps\n", r);
/*
        This errors out
*/
        r = Flx_ffisom(f, f, l);
        pari_printf("%Ps\n", r);

        pari_close();

        return 0;
}

Thanks in advance for the support!

-- 
Jean-Pierre Flori