C/ZLARFGP must re-scale when ALPHA is not real about lapack HOT 1 CLOSED

#include <complex.h>
#include <stdio.h>

typedef int lapack_int;

void clarfgp_(
    lapack_int* n, float complex* alpha, float complex* x, lapack_int* incx,
    float complex* tau
);

int main()
{
    lapack_int n = 1;
    float complex x[1] = { 2.073921727e-43f + 3.082856622e-44f * I };
    lapack_int incx = 1;
    float complex tau = -1.0f;

    clarfgp_(&n, x, x + 1, &incx, &tau);

    float complex tau_expected = 1.086842348e-02 - 1.470330722e-01 * I;

    printf("computed tau: %.6e%+.6ej\n", crealf(tau), cimagf(tau));
    printf(
        "expected tau: %.6e%+.6ej\n", crealf(tau_expected), cimagf(tau_expected)
    );
}