gcc/testsuite/gfortran.dg/simd-builtins-1.f90

   1 ! { dg-do compile { target i?86-*-linux* x86_64-*-linux* aarch64*-*-linux* } }
   2 ! { dg-additional-options "-nostdinc -Ofast -fpre-include=simd-builtins-1.h -fdump-tree-optimized" }
   3 ! { dg-additional-options "-msse2 -mno-avx" { target i?86-*-linux* x86_64-*-linux* } }
   4
   5 program test_overloaded_intrinsic
   6   real(4) :: x4(3200), y4(3200)
   7   real(8) :: x8(3200), y8(3200)
   8
   9   ! this should be using simd clone
  10   y4 = sin(x4)
  11   print *, y4
  12
  13   ! this should not be using simd clone
  14   y4 = sin(x8)
  15   print *, y8
  16 end
  17
  18 ! { dg-final { scan-tree-dump "sinf.simdclone" "optimized" } }
  19 ! { dg-final { scan-tree-dump "__builtin_sin" "optimized" } }
  20 ! { dg-final { scan-assembler "call.*_ZGVbN4v_sinf" { target i?86-*-linux* x86_64-*-* } } }
  21 ! { dg-final { scan-assembler "bl.*_ZGVnN4v_sinf" { target aarch64*-*-* } } }