Merge pull request #2157 from martin-frbg/2154-2
[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