/*
Check whether cpowl can be linked.
This is for the benefit of Straberry Perl
versions 5.12.x, where a gcc bug renders
cpow() unusable, but cpowl() works fine
*/

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

int main(void) {
 double _Complex rop, op;

 __real__ op = 0.6;
 __imag__ op = 0.5;

 rop = (double _Complex)cpowl(op, op);

 return 0;

}