1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
2! OpenMP Version 5.1
3! Check OpenMP construct validity for the following directives:
4! 2.21.2 Threadprivate Directive
5
6module mod1
7end
8
9program main
10  use mod1
11  integer, parameter :: i = 1
12
13  !ERROR: The module name or main program name cannot be in a THREADPRIVATE directive
14  !$omp threadprivate(mod1)
15
16  !ERROR: The module name or main program name cannot be in a THREADPRIVATE directive
17  !$omp threadprivate(main)
18
19  !ERROR: The entity with PARAMETER attribute cannot be in a THREADPRIVATE directive
20  !$omp threadprivate(i)
21
22contains
23  subroutine sub()
24    !ERROR: The procedure name cannot be in a THREADPRIVATE directive
25    !$omp threadprivate(sub)
26  end
27end
28