summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr28158.f90
blob: 4556ecd76edd9887a9468e20dded947bf4f61b12 (plain)
1
2
3
4
5
6
7
! { dg-do compile { target i?86-*-* x86_64-*-* } }
! { dg-require-effective-target ilp32 }
! { dg-options "-O -msse -mfpmath=sse" }
    subroutine yhalf(z)
    complex cdexpj,z
    z=cdexpj((0.d0,1.d0)*z)
    end