1! Fortran
2! { dg-do compile { target { powerpc*-*-* } } }
3! { dg-require-effective-target powerpc_vsx_ok }
4! { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power7" } }
5! { dg-options "-O2 -mcpu=power7 -ffast-math" }
6! { dg-final { scan-assembler-times "xsrdpi" 2 } }
7
8	subroutine test_nint(x4,x8)
9          real(4) x4
10          real(8) x8
11          print *, nint(x4), idnint(x8)
12	end subroutine test_nint
13