33 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! The openmp standard only dissallows namelist for privatization, but flang4! also does not allow it for reduction as this would be difficult to support.5!6! Variables in equivalence with variables in the namelist pose the same7! implementation problems.8 9subroutine test01()10 integer::va11 equivalence (va,vva)12 namelist /na1/vva13 va=114 15!ERROR: Variable 'va' in NAMELIST cannot be in a REDUCTION clause16!$omp parallel reduction(+:va)17 write(*,na1)18!$omp end parallel19end subroutine test0120 21 22subroutine test02()23 integer::va24 equivalence (va,vva)25 namelist /na1/vva26 va=127 28!ERROR: Variable 'va' in NAMELIST cannot be in a PRIVATE clause29!$omp parallel private(va)30 write(*,na1)31!$omp end parallel32end subroutine test0233