gcc/testsuite/gfortran.dg/nint_p7.f90


1
2
3
4
5
6
7
8
9
10
11

! Fortran
! { dg-do compile { target { powerpc*-*-* } } }
! { dg-require-effective-target powerpc_vsx_ok } 
! { dg-options "-O2 -mdejagnu-cpu=power7 -ffast-math" } 
! { dg-final { scan-assembler-times "xsrdpi" 2 } } 

	subroutine test_nint(x4,x8)
          real(4) x4
          real(8) x8
          print *, nint(x4), idnint(x8)
	end subroutine test_nint