llvm-project/flang/test/Semantics/acc-resolve01.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

23 lines
508 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %f18 -fopenacc
! Data-Mapping Attribute Clauses
! 2.15.14 default Clause
subroutine default_none()
integer a(3)
A = 1
B = 2
!$acc parallel default(none) private(c)
!ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-mapping clause
A(1:2) = 3
!ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-mapping clause
B = 4
C = 5
!$acc end parallel
end subroutine default_none
program mm
call default_none()
end