15 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2integer function square(x, y)3 implicit none4 integer, intent(in) :: x, y5 !$acc parallel self(x * 2 > x) ! ok6 !$acc end parallel7!ERROR: Must have LOGICAL type, but is INTEGER(4)8 !$acc parallel self(x * 2)9 !$acc end parallel10!ERROR: SELF clause on the PARALLEL directive only accepts optional scalar logical expression11 !$acc parallel self(x, y)12 !$acc end parallel13 square = x * x14end function square15