mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
22 lines
802 B
Fortran
22 lines
802 B
Fortran
! { dg-do compile { target i?86-*-linux* x86_64-*-linux* aarch64*-*-linux* } }
|
|
! { dg-additional-options "-nostdinc -Ofast -fpre-include=simd-builtins-1.h -fdump-tree-optimized" }
|
|
! { dg-additional-options "-msse2 -mno-avx" { target i?86-*-linux* x86_64-*-linux* } }
|
|
|
|
program test_overloaded_intrinsic
|
|
real(4) :: x4(3200), y4(3200)
|
|
real(8) :: x8(3200), y8(3200)
|
|
|
|
! this should be using simd clone
|
|
y4 = sin(x4)
|
|
print *, y4
|
|
|
|
! this should not be using simd clone
|
|
y4 = sin(x8)
|
|
print *, y8
|
|
end
|
|
|
|
! { dg-final { scan-tree-dump "sinf.simdclone" "optimized" } }
|
|
! { dg-final { scan-tree-dump "__builtin_sin" "optimized" } }
|
|
! { dg-final { scan-assembler "call.*_ZGVbN4v_sinf" { target i?86-*-linux* x86_64-*-* } } }
|
|
! { dg-final { scan-assembler "bl.*_ZGVnN4v_sinf" { target aarch64*-*-* } } }
|