procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add 'libgomp.c++/pr96835-1{,-O0}.C', 'libgomp.oacc-c++/pr96835-1.C' [PR96835]

Browse source 
PR libgomp/96835
	libgomp/
	* testsuite/libgomp.c++/pr96835-1.C: New.
	* testsuite/libgomp.c++/pr96835-1-O0.C: Likewise.
	* testsuite/libgomp.oacc-c++/pr96835-1.C: Likewise.
This commit is contained in:
Thomas Schwinge 2024-10-08 09:59:45 +02:00
parent 62312c778a
commit 332a08173a
3 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
libgomp/testsuite/libgomp.c++/pr96835-1-O0.C Normal file
View file

@ -0,0 +1,3 @@
// { dg-additional-options -O0 }
#include "pr96835-1.C"

45
libgomp/testsuite/libgomp.c++/pr96835-1.C Normal file
View file

@ -0,0 +1,45 @@
// See also '../libgomp.oacc-c++/pr96835-1.C'.
#ifndef ALWAYS_INLINE
# define ALWAYS_INLINE
#endif
#pragma omp declare target
template<int sz>
struct vector {
int values_[sz];
vector();
ALWAYS_INLINE
vector(int const& init_val);
ALWAYS_INLINE
int dot(vector o) {
int res = 0;
for (int i = 0; i < sz; ++ i)
res += values_[i] * o.values_[i];
return res;
}
};
template<int sz>
vector<sz>::vector(int const& init_val) {
for (int i = 0; i < sz; ++ i) values_[i] = init_val;
}
template<int sz>
vector<sz>::vector() : vector(0) {
}
#pragma omp end declare target
int main() {
int res = 0;
#pragma omp target map(from:res)
#pragma acc serial copyout(res)
{
vector<4> v1(1);
vector<4> v2(2);
res = v1.dot(v2);
}
if (res != 8)
__builtin_abort();
return 0;
}

6
libgomp/testsuite/libgomp.oacc-c++/pr96835-1.C Normal file
View file

@ -0,0 +1,6 @@
// { dg-additional-options -fno-inline } for stable results regarding OpenACC 'routine'.
// But actually, as none of the '#pragma acc routine' syntax is accepted (see '../libgomp.c++/pr101544-1.C'), force inlining:
#define ALWAYS_INLINE inline __attribute__((always_inline))
#include "../libgomp.c++/pr96835-1.C"
//TODO { dg-prune-output {using 'vector_length \(32\)', ignoring 1} }