1! RUN: %python %S/../test_errors.py %s %flang -fopenacc 2 3! Data-Mapping Attribute Clauses 4! 2.15.14 default Clause 5 6subroutine default_none() 7 integer a(3) 8 9 A = 1 10 B = 2 11 !$acc parallel default(none) private(c) 12 !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-mapping clause 13 A(1:2) = 3 14 !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-mapping clause 15 B = 4 16 C = 5 17 !$acc end parallel 18end subroutine default_none 19 20program mm 21 call default_none() 22end 23