Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/c-c++-common/goacc/loop-2-parallel.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* See also "../../gfortran.dg/goacc/loop-2-parallel.f95". */
2
1 void P(void) 3 void P(void)
2 { 4 {
3 int i, j; 5 int i, j;
4 6
5 #pragma acc parallel 7 #pragma acc parallel
113 { } 115 { }
114 #pragma acc parallel loop gang(static:*) 116 #pragma acc parallel loop gang(static:*)
115 for (i = 0; i < 10; i++) 117 for (i = 0; i < 10; i++)
116 { } 118 { }
117 119
118 #pragma acc parallel loop seq gang // { dg-error "'seq' overrides" "" { target c } } 120 #pragma acc parallel loop seq gang // { dg-error "'seq' overrides" }
119 for (i = 0; i < 10; i++) // { dg-error "'seq' overrides" "" { target c++ } } 121 for (i = 0; i < 10; i++)
120 { } 122 { }
121 123
122 #pragma acc parallel loop worker 124 #pragma acc parallel loop worker
123 for (i = 0; i < 10; i++) 125 for (i = 0; i < 10; i++)
124 { } 126 { }
125 127
126 #pragma acc parallel loop seq worker // { dg-error "'seq' overrides" "" { target c } } 128 #pragma acc parallel loop seq worker // { dg-error "'seq' overrides" }
127 for (i = 0; i < 10; i++) // { dg-error "'seq' overrides" "" { target c++ } } 129 for (i = 0; i < 10; i++)
128 { } 130 { }
129 #pragma acc parallel loop gang worker 131 #pragma acc parallel loop gang worker
130 for (i = 0; i < 10; i++) 132 for (i = 0; i < 10; i++)
131 { } 133 { }
132 134
133 #pragma acc parallel loop vector 135 #pragma acc parallel loop vector
134 for (i = 0; i < 10; i++) 136 for (i = 0; i < 10; i++)
135 { } 137 { }
136 138
137 #pragma acc parallel loop seq vector // { dg-error "'seq' overrides" "" { target c } } 139 #pragma acc parallel loop seq vector // { dg-error "'seq' overrides" }
138 for (i = 0; i < 10; i++) // { dg-error "'seq' overrides" "" { target c++ } } 140 for (i = 0; i < 10; i++)
139 { } 141 { }
140 #pragma acc parallel loop gang vector 142 #pragma acc parallel loop gang vector
141 for (i = 0; i < 10; i++) 143 for (i = 0; i < 10; i++)
142 { } 144 { }
143 #pragma acc parallel loop worker vector 145 #pragma acc parallel loop worker vector
145 { } 147 { }
146 148
147 #pragma acc parallel loop auto 149 #pragma acc parallel loop auto
148 for (i = 0; i < 10; i++) 150 for (i = 0; i < 10; i++)
149 { } 151 { }
150 #pragma acc parallel loop seq auto // { dg-error "'seq' overrides" "" { target c } } 152 #pragma acc parallel loop seq auto // { dg-error "'seq' overrides" }
151 for (i = 0; i < 10; i++) // { dg-error "'seq' overrides" "" { target c++ } } 153 for (i = 0; i < 10; i++)
152 { } 154 { }
153 #pragma acc parallel loop gang auto // { dg-error "'auto' conflicts" "" { target c } } 155 #pragma acc parallel loop gang auto // { dg-error "'auto' conflicts" }
154 for (i = 0; i < 10; i++) // { dg-error "'auto' conflicts" "" { target c++ } } 156 for (i = 0; i < 10; i++)
155 { } 157 { }
156 #pragma acc parallel loop worker auto // { dg-error "'auto' conflicts" "" { target c } } 158 #pragma acc parallel loop worker auto // { dg-error "'auto' conflicts" }
157 for (i = 0; i < 10; i++) // { dg-error "'auto' conflicts" "" { target c++ } } 159 for (i = 0; i < 10; i++)
158 { } 160 { }
159 #pragma acc parallel loop vector auto // { dg-error "'auto' conflicts" "" { target c } } 161 #pragma acc parallel loop vector auto // { dg-error "'auto' conflicts" }
160 for (i = 0; i < 10; i++) // { dg-error "'auto' conflicts" "" { target c++ } } 162 for (i = 0; i < 10; i++)
161 { } 163 { }
162 } 164 }