diff options
Diffstat (limited to 'flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90')
-rw-r--r-- | flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90 b/flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90 index 7ad44d0..4886615 100644 --- a/flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90 +++ b/flang/test/Semantics/PowerPC/ppc-vector-intrinsics.f90 @@ -3,6 +3,7 @@ program test vector(integer(4)) :: arg1, arg2, r + vector(real(4)) :: rr integer :: i !ERROR: Actual argument #3 must be a constant expression @@ -14,4 +15,9 @@ program test r = vec_sldw(arg1, arg2, i) !ERROR: Argument #3 must be a constant expression in range 0-3 r = vec_sldw(arg1, arg2, 5) -end + +!ERROR: Actual argument #2 must be a constant expression + rr = vec_ctf(arg1, i) +! ERROR: Argument #2 must be a constant expression in range 0-31 + rr = vec_ctf(arg1, 37) +end program test |