29 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -pedantic2! OpenMP Version 5.13! Check OpenMP construct validity for the following directives:4! 2.21.2 Threadprivate Directive5 6module mod17end8 9program main10 use mod111 integer, parameter :: i = 112 13 !ERROR: The module name cannot be in a THREADPRIVATE directive14 !$omp threadprivate(mod1)15 16 ! This is now allowed, since "main" is implicitly declared symbol,17 ! separate from the main program symbol.18 !$omp threadprivate(main)19 20 !ERROR: The entity with PARAMETER attribute cannot be in a THREADPRIVATE directive21 !$omp threadprivate(i)22 23contains24 subroutine sub()25 !ERROR: The procedure name cannot be in a THREADPRIVATE directive26 !$omp threadprivate(sub)27 end28end29