Merge pull request #2157 from martin-frbg/2154-2
[platform/upstream/openblas.git] / ftest.f
1       double complex function zhoge()
2
3       zhoge = (0.0d0,0.0d0)
4
5       return
6       end