2 ! { dg-do compile { target { powerpc*-*-* } } }
3 ! { dg-options "-O2 -mdejagnu-cpu=power7 -ffast-math" }
4 ! { dg-require-effective-target powerpc_vsx }
5 ! { dg-require-effective-target has_arch_ppc64 }
6 ! { dg-final { scan-assembler-times "xsrdpi" 2 } }
8 subroutine test_nint(x4
,x8
)
11 print *, nint(x4
), idnint(x8
)
12 end subroutine test_nint