fix build error
[platform/upstream/openblas.git] / ftest3.f
1       double complex function zho_ge()
2
3       zho_ge = (0.0d0,0.0d0)
4
5       return
6       end