[match.pd] Handle abs pattern with convert
[official-gcc.git] / gcc / testsuite / gfortran.dg / nint_p7.f90
blobed178c08a6ddd2f2a2e58e4e9cae0c37e46c8bad
1 ! Fortran
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)
9 real(4) x4
10 real(8) x8
11 print *, nint(x4), idnint(x8)
12 end subroutine test_nint