54 lines · plain
1! RUN: %S/../test_errors.py %s %flang_fc12! REQUIRES: target=powerpc{{.*}}3 4program test5 vector(integer(4)) :: arg1, arg2, r6 vector(real(4)) :: rr7 integer :: i8 9!ERROR: Actual argument #3 must be a constant expression10 r = vec_sld(arg1, arg2, i)11!ERROR: Argument #3 must be a constant expression in range 0 to 1512 r = vec_sld(arg1, arg2, 17)13 14!ERROR: Actual argument #3 must be a constant expression15 r = vec_sldw(arg1, arg2, i)16!ERROR: Argument #3 must be a constant expression in range 0 to 317 r = vec_sldw(arg1, arg2, 5)18 19!ERROR: Actual argument #2 must be a constant expression20 rr = vec_ctf(arg1, i)21! ERROR: Argument #2 must be a constant expression in range 0 to 3122 rr = vec_ctf(arg1, 37)23end program test24 25subroutine test_vec_permi()26 vector(integer(8)) :: arg1, arg2, r27 integer :: arg328!ERROR: Actual argument #3 must be a constant expression29 r = vec_permi(arg1, arg2, arg3)30! ERROR: Argument #3 must be a constant expression in range 0 to 331 r = vec_permi(arg1, arg2, 11)32end33 34subroutine test_vec_splat()35 vector(integer(8)) :: arg1_8, r836 vector(integer(2)) :: arg1_2, r237 integer(2) :: arg238!ERROR: Actual argument #2 must be a constant expression39 r8 = vec_splat(arg1_8, arg2)40!ERROR: Argument #2 must be a constant expression in range 0 to 141 r8 = vec_splat(arg1_8, 3)42!ERROR: Argument #2 must be a constant expression in range 0 to 743 r2 = vec_splat(arg1_2, 11)44end45 46subroutine test_vec_splat_s32()47 integer(4) :: arg148 vector(integer(4)) :: r49!ERROR: Actual argument #1 must be a constant expression50 r = vec_splat_s32(arg1)51!ERROR: Argument #1 must be a constant expression in range -16 to 1552 r = vec_splat_s32(17)53end54