3 ! { dg-options "-fopenmp" }
6 real, parameter :: one = 1.0
9 !$omp parallel firstprivate (one) ! { dg-error "is not a variable" }
14 !$omp parallel firstprivate (doit) ! { dg-error "is not a variable" }
23 !$omp parallel private (fn4) ! { dg-error "is not a variable" }
34 !$omp parallel private (fn6, x) ! { dg-error "is not a variable" }
38 function fn7 () result (re7)
40 !$omp parallel private (fn7) ! { dg-error "is not a variable" }
43 function fn8 () result (re8)
48 !$omp parallel private (fn8) ! { dg-error "is not a variable" }
52 function fn10 () result (re10)
54 entry fn11 () result (re11)
55 !$omp parallel private (fn10) ! { dg-error "is not a variable" }
57 !$omp parallel private (fn11) ! { dg-error "is not a variable" }
60 function fn12 () result (re12)
62 entry fn13 () result (re13)
66 !$omp parallel private (fn12) ! { dg-error "is not a variable" }
68 !$omp parallel private (fn13) ! { dg-error "is not a variable" }