Skip to content

R
riscv-gcc-1
Commit 4e2a5450 by Thomas Schwinge Committed by Thomas Schwinge
Options

Add checkpoint to libgomp dg-shouldfail tests 

That is, verify that we're actually reaching the expected checkpoint before
terminating.

	libgomp/
	* testsuite/libgomp.oacc-c-c++-common/abort-1.c: Add checkpoint.
	* testsuite/libgomp.oacc-c-c++-common/abort-3.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/clauses-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-1.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-3.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-4.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-5.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-6.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-7.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/data-already-8.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-1.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-11.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-16.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-17.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-18.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-2.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-20.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-21.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-22.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-23.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-25.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-26.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-27.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-28.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-29.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-3.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-30.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-34.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-35.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-36.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-39.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-4.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-40.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-42.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-43.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-44.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-47.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-48.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-52.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-53.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-54.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-57.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-58.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-62.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-63.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-64.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-65.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-67.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-68.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-71.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-77.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/lib-80.c: Likewise.
	* testsuite/libgomp.oacc-c-c++-common/present-1.c: Likewise.
	* testsuite/libgomp.oacc-fortran/abort-1.f90: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-1.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-2.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-3.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-4.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-5.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-6.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-7.f: Likewise.
	* testsuite/libgomp.oacc-fortran/data-already-8.f: Likewise.

From-SVN: r228282
parent b57d6e12
Showing with 281 additions and 27 deletions
libgomp/ChangeLog
2015-09-30 Thomas Schwinge <thomas@codesourcery.com>
* testsuite/libgomp.oacc-c-c++-common/abort-1.c: Add checkpoint.
* testsuite/libgomp.oacc-c-c++-common/abort-3.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/clauses-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-1.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-3.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-4.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-5.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-6.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-7.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/data-already-8.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-1.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-11.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-16.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-17.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-18.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-2.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-20.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-21.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-22.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-23.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-25.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-26.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-27.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-28.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-29.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-3.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-30.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-34.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-35.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-36.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-39.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-4.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-40.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-42.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-43.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-44.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-47.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-48.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-52.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-53.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-54.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-57.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-58.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-62.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-63.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-64.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-65.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-67.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-68.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-71.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-77.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/lib-80.c: Likewise.
* testsuite/libgomp.oacc-c-c++-common/present-1.c: Likewise.
* testsuite/libgomp.oacc-fortran/abort-1.f90: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-1.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-2.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-3.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-4.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-5.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-6.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-7.f: Likewise.
* testsuite/libgomp.oacc-fortran/data-already-8.f: Likewise.
2015-09-29 Nathan Sidwell <nathan@codesourcery.com> 2015-09-29 Nathan Sidwell <nathan@codesourcery.com>
* oacc-init.c (acc_on_device): Force optimization level. * oacc-init.c (acc_on_device): Force optimization level.
......
libgomp/testsuite/libgomp.oacc-c-c++-common/abort-1.c
/* { dg-do run } */ /* { dg-do run } */
/* { dg-shouldfail "" { *-*-* } { "*" } { "" } } */
#include <stdlib.h> #include <stdlib.h>
int int
main (void) main (void)
{ {
__builtin_printf ("CheCKpOInT\n");
#pragma acc parallel #pragma acc parallel
{ {
abort (); abort ();
...@@ -15,3 +14,5 @@ main (void) ...@@ -15,3 +14,5 @@ main (void)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/abort-3.c
/* { dg-do run } */ /* { dg-do run } */
/* { dg-shouldfail "" { *-*-* } { "*" } { "" } } */
#include <stdlib.h> #include <stdlib.h>
int int
main (void) main (void)
{ {
__builtin_printf ("CheCKpOInT\n");
#pragma acc kernels #pragma acc kernels
{ {
abort (); abort ();
...@@ -15,3 +14,5 @@ main (void) ...@@ -15,3 +14,5 @@ main (void)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/clauses-2.c
...@@ -27,6 +27,7 @@ main (int argc, char **argv) ...@@ -27,6 +27,7 @@ main (int argc, char **argv)
d = (float *) acc_malloc (N * sizeof (float)); d = (float *) acc_malloc (N * sizeof (float));
acc_map_data (c, d, N * sizeof (float)); acc_map_data (c, d, N * sizeof (float));
fprintf (stderr, "CheCKpOInT\n");
#pragma acc parallel copyin (a[0:N]) present_or_create (c[0:N+1]) copyout (b[0:N]) #pragma acc parallel copyin (a[0:N]) present_or_create (c[0:N+1]) copyout (b[0:N])
{ {
int ii; int ii;
...@@ -64,5 +65,7 @@ main (int argc, char **argv) ...@@ -64,5 +65,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */ /* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-1.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -9,11 +10,13 @@ main (int argc, char *argv[]) ...@@ -9,11 +10,13 @@ main (int argc, char *argv[])
acc_copyin (&i, sizeof i); acc_copyin (&i, sizeof i);
fprintf (stderr, "CheCKpOInT\n");
#pragma acc data copy (i) #pragma acc data copy (i)
++i; ++i;
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */ /* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-2.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
int int
main (int argc, char *argv[]) main (int argc, char *argv[])
{ {
int i; int i;
#pragma acc data present_or_copy (i) #pragma acc data present_or_copy (i)
{
fprintf (stderr, "CheCKpOInT\n");
#pragma acc data copyout (i) #pragma acc data copyout (i)
++i; ++i;
}
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */ /* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-3.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -8,10 +9,14 @@ main (int argc, char *argv[]) ...@@ -8,10 +9,14 @@ main (int argc, char *argv[])
int i; int i;
#pragma acc data present_or_copy (i) #pragma acc data present_or_copy (i)
acc_copyin (&i, sizeof i); {
fprintf (stderr, "CheCKpOInT\n");
acc_copyin (&i, sizeof i);
}
return 0; return 0;
} }
/* { dg-shouldfail "" } /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
{ dg-output "already mapped to" } */ /* { dg-output "already mapped to" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-4.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -8,10 +9,12 @@ main (int argc, char *argv[]) ...@@ -8,10 +9,12 @@ main (int argc, char *argv[])
int i; int i;
acc_present_or_copyin (&i, sizeof i); acc_present_or_copyin (&i, sizeof i);
fprintf (stderr, "CheCKpOInT\n");
acc_copyin (&i, sizeof i); acc_copyin (&i, sizeof i);
return 0; return 0;
} }
/* { dg-shouldfail "" } /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
{ dg-output "already mapped to" } */ /* { dg-output "already mapped to" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-5.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -8,10 +9,12 @@ main (int argc, char *argv[]) ...@@ -8,10 +9,12 @@ main (int argc, char *argv[])
int i; int i;
#pragma acc enter data create (i) #pragma acc enter data create (i)
fprintf (stderr, "CheCKpOInT\n");
acc_copyin (&i, sizeof i); acc_copyin (&i, sizeof i);
return 0; return 0;
} }
/* { dg-shouldfail "" } /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
{ dg-output "already mapped to" } */ /* { dg-output "already mapped to" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-6.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -8,10 +9,12 @@ main (int argc, char *argv[]) ...@@ -8,10 +9,12 @@ main (int argc, char *argv[])
int i; int i;
acc_present_or_copyin (&i, sizeof i); acc_present_or_copyin (&i, sizeof i);
fprintf (stderr, "CheCKpOInT\n");
#pragma acc enter data create (i) #pragma acc enter data create (i)
return 0; return 0;
} }
/* { dg-shouldfail "" } /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
{ dg-output "already mapped to" } */ /* { dg-output "already mapped to" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-7.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -8,10 +9,12 @@ main (int argc, char *argv[]) ...@@ -8,10 +9,12 @@ main (int argc, char *argv[])
int i; int i;
#pragma acc enter data create (i) #pragma acc enter data create (i)
fprintf (stderr, "CheCKpOInT\n");
acc_create (&i, sizeof i); acc_create (&i, sizeof i);
return 0; return 0;
} }
/* { dg-shouldfail "" } /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
{ dg-output "already mapped to" } */ /* { dg-output "already mapped to" } */
/* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/data-already-8.c
/* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */ /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
#include <stdio.h>
int int
main (int argc, char *argv[]) main (int argc, char *argv[])
{ {
int i; int i;
#pragma acc data create (i) #pragma acc data create (i)
{
fprintf (stderr, "CheCKpOInT\n");
#pragma acc parallel copyin (i) #pragma acc parallel copyin (i)
++i; ++i;
}
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */ /* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-1.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -16,10 +17,12 @@ main (int argc, char **argv) ...@@ -16,10 +17,12 @@ main (int argc, char **argv)
acc_init (devtype); acc_init (devtype);
fprintf (stderr, "CheCKpOInT\n");
acc_init (devtype); acc_init (devtype);
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "device already active" } */ /* { dg-output "device already active" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-11.c
/* Only nvptx plugin does the required error checking. /* Only nvptx plugin does the required error checking.
{ dg-do run { target openacc_nvidia_accel_selected } } */ { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
#include <stdint.h> #include <stdint.h>
...@@ -15,10 +16,12 @@ main (int argc, char **argv) ...@@ -15,10 +16,12 @@ main (int argc, char **argv)
if (d == NULL) if (d == NULL)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
acc_free ((void *)((uintptr_t) d + (uintptr_t) (N >> 1))); acc_free ((void *)((uintptr_t) d + (uintptr_t) (N >> 1)));
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid device address" } */ /* { dg-output "invalid device address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-16.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -19,6 +20,7 @@ main (int argc, char **argv) ...@@ -19,6 +20,7 @@ main (int argc, char **argv)
(void) acc_copyin (h, N); (void) acc_copyin (h, N);
fprintf (stderr, "CheCKpOInT\n");
(void) acc_copyin (h, N); (void) acc_copyin (h, N);
free (h); free (h);
...@@ -26,5 +28,6 @@ main (int argc, char **argv) ...@@ -26,5 +28,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] already mapped to \\\[\[0-9a-fA-FxX\]+,\\\+256\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] already mapped to \\\[\[0-9a-fA-FxX\]+,\\\+256\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-17.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -21,6 +22,7 @@ main (int argc, char **argv) ...@@ -21,6 +22,7 @@ main (int argc, char **argv)
acc_copyout (h, N); acc_copyout (h, N);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h, N); acc_copyout (h, N);
free (h); free (h);
...@@ -28,5 +30,6 @@ main (int argc, char **argv) ...@@ -28,5 +30,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-18.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
#include <stdio.h>
int int
main (int argc, char **argv) main (int argc, char **argv)
{ {
...@@ -24,6 +23,7 @@ main (int argc, char **argv) ...@@ -24,6 +23,7 @@ main (int argc, char **argv)
acc_free (d); acc_free (d);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h, N); acc_copyout (h, N);
free (h); free (h);
...@@ -31,5 +31,6 @@ main (int argc, char **argv) ...@@ -31,5 +31,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-2.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -18,10 +19,12 @@ main (int argc, char **argv) ...@@ -18,10 +19,12 @@ main (int argc, char **argv)
acc_shutdown (devtype); acc_shutdown (devtype);
fprintf (stderr, "CheCKpOInT\n");
acc_shutdown (devtype); acc_shutdown (devtype);
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "no device initialized" } */ /* { dg-output "no device initialized" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-20.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -19,6 +20,7 @@ main (int argc, char **argv) ...@@ -19,6 +20,7 @@ main (int argc, char **argv)
(void) acc_copyin (h, N); (void) acc_copyin (h, N);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h, N + 1); acc_copyout (h, N + 1);
free (h); free (h);
...@@ -26,5 +28,6 @@ main (int argc, char **argv) ...@@ -26,5 +28,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+257\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+257\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-21.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -19,6 +20,7 @@ main (int argc, char **argv) ...@@ -19,6 +20,7 @@ main (int argc, char **argv)
(void) acc_copyin (h, N); (void) acc_copyin (h, N);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h, 0); acc_copyout (h, 0);
free (h); free (h);
...@@ -26,5 +28,6 @@ main (int argc, char **argv) ...@@ -26,5 +28,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-22.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -19,6 +20,7 @@ main (int argc, char **argv) ...@@ -19,6 +20,7 @@ main (int argc, char **argv)
(void) acc_copyin (h, N); (void) acc_copyin (h, N);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h + 1, N - 1); acc_copyout (h + 1, N - 1);
free (h); free (h);
...@@ -26,5 +28,6 @@ main (int argc, char **argv) ...@@ -26,5 +28,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+255\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+255\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-23.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -28,6 +29,7 @@ main (int argc, char **argv) ...@@ -28,6 +29,7 @@ main (int argc, char **argv)
(void) acc_copyin (h2, N); (void) acc_copyin (h2, N);
fprintf (stderr, "CheCKpOInT\n");
acc_copyout (h1, N + N); acc_copyout (h1, N + N);
free (h1); free (h1);
...@@ -36,5 +38,6 @@ main (int argc, char **argv) ...@@ -36,5 +38,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+512\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+512\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-25.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -16,6 +17,7 @@ main (int argc, char **argv) ...@@ -16,6 +17,7 @@ main (int argc, char **argv)
if (!d) if (!d)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
d = acc_create (h, N); d = acc_create (h, N);
if (!d) if (!d)
abort (); abort ();
...@@ -27,5 +29,6 @@ main (int argc, char **argv) ...@@ -27,5 +29,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] already mapped to \\\[\[0-9a-fA-FxX\]+,\\\+256\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] already mapped to \\\[\[0-9a-fA-FxX\]+,\\\+256\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-26.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -12,6 +13,7 @@ main (int argc, char **argv) ...@@ -12,6 +13,7 @@ main (int argc, char **argv)
h = (unsigned char *) malloc (N); h = (unsigned char *) malloc (N);
fprintf (stderr, "CheCKpOInT\n");
d = acc_create (h, 0); d = acc_create (h, 0);
if (!d) if (!d)
abort (); abort ();
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-27.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -12,6 +13,7 @@ main (int argc, char **argv) ...@@ -12,6 +13,7 @@ main (int argc, char **argv)
h = (unsigned char *) malloc (N); h = (unsigned char *) malloc (N);
fprintf (stderr, "CheCKpOInT\n");
d = acc_create (0, N); d = acc_create (0, N);
if (!d) if (!d)
abort (); abort ();
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */ /* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-28.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -16,6 +17,7 @@ main (int argc, char **argv) ...@@ -16,6 +17,7 @@ main (int argc, char **argv)
if (!d) if (!d)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
acc_delete (0, N); acc_delete (0, N);
free (h); free (h);
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */ /* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-29.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -16,6 +17,7 @@ main (int argc, char **argv) ...@@ -16,6 +17,7 @@ main (int argc, char **argv)
if (!d) if (!d)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
acc_delete (h, 0); acc_delete (h, 0);
free (h); free (h);
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-3.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
...@@ -7,11 +8,13 @@ main (int argc, char **argv) ...@@ -7,11 +8,13 @@ main (int argc, char **argv)
{ {
acc_init (acc_device_host); acc_init (acc_device_host);
fprintf (stderr, "CheCKpOInT\n");
acc_shutdown (acc_device_not_host); acc_shutdown (acc_device_not_host);
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* TODO: currently prints: "libgomp: no device found". */ /* TODO: currently prints: "libgomp: no device found". */
/* { dg-output "device \[0-9\]+\\\(\[0-9\]+\\\) is initialized" { xfail *-*-* } } */ /* { dg-output "device \[0-9\]+\\\(\[0-9\]+\\\) is initialized" { xfail *-*-* } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-30.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -16,6 +17,7 @@ main (int argc, char **argv) ...@@ -16,6 +17,7 @@ main (int argc, char **argv)
if (!d) if (!d)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
acc_delete (h, N - 2); acc_delete (h, N - 2);
free (h); free (h);
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+254\\\]" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] surrounds2 \\\[\[0-9a-fA-FxX\]+,\\\+254\\\]" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-34.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -16,6 +17,7 @@ main (int argc, char **argv) ...@@ -16,6 +17,7 @@ main (int argc, char **argv)
if (!d1) if (!d1)
abort (); abort ();
fprintf (stderr, "CheCKpOInT\n");
d2 = acc_present_or_create (h + 2, N); d2 = acc_present_or_create (h + 2, N);
if (!d2) if (!d2)
abort (); abort ();
...@@ -30,5 +32,6 @@ main (int argc, char **argv) ...@@ -30,5 +32,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\\\] not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-35.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -12,6 +13,7 @@ main (int argc, char **argv) ...@@ -12,6 +13,7 @@ main (int argc, char **argv)
h = (unsigned char *) malloc (N); h = (unsigned char *) malloc (N);
fprintf (stderr, "CheCKpOInT\n");
d = acc_present_or_create (0, N); d = acc_present_or_create (0, N);
if (!d) if (!d)
abort (); abort ();
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */ /* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-36.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -12,6 +13,7 @@ main (int argc, char **argv) ...@@ -12,6 +13,7 @@ main (int argc, char **argv)
h = (unsigned char *) malloc (N); h = (unsigned char *) malloc (N);
fprintf (stderr, "CheCKpOInT\n");
d = acc_present_or_create (h, 0); d = acc_present_or_create (h, 0);
if (!d) if (!d)
abort (); abort ();
...@@ -23,5 +25,6 @@ main (int argc, char **argv) ...@@ -23,5 +25,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-39.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -19,6 +20,7 @@ main (int argc, char **argv) ...@@ -19,6 +20,7 @@ main (int argc, char **argv)
h[i] = i; h[i] = i;
} }
fprintf (stderr, "CheCKpOInT\n");
d = acc_present_or_copyin (0, N); d = acc_present_or_copyin (0, N);
if (!d) if (!d)
abort (); abort ();
...@@ -38,5 +40,6 @@ main (int argc, char **argv) ...@@ -38,5 +40,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */ /* { dg-output "\\\[\[^\n\r]*,\\\+256\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-4.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <openacc.h> #include <openacc.h>
int int
main (int argc, char **argv) main (int argc, char **argv)
{ {
fprintf (stderr, "CheCKpOInT\n");
acc_init ((acc_device_t) 99); acc_init ((acc_device_t) 99);
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "unknown device type \[0-9\]+" } */ /* { dg-output "unknown device type \[0-9\]+" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-40.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
#include <unistd.h> #include <unistd.h>
...@@ -20,6 +21,7 @@ main (int argc, char **argv) ...@@ -20,6 +21,7 @@ main (int argc, char **argv)
h[i] = i; h[i] = i;
} }
fprintf (stderr, "CheCKpOInT\n");
d = acc_present_or_copyin (h, 0); d = acc_present_or_copyin (h, 0);
if (!d) if (!d)
abort (); abort ();
...@@ -39,5 +41,6 @@ main (int argc, char **argv) ...@@ -39,5 +41,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad range" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-42.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -17,6 +18,7 @@ main (int argc, char **argv) ...@@ -17,6 +18,7 @@ main (int argc, char **argv)
h[i] = i; h[i] = i;
} }
fprintf (stderr, "CheCKpOInT\n");
acc_update_device (h, N); acc_update_device (h, N);
acc_copyout (h, N); acc_copyout (h, N);
...@@ -32,6 +34,7 @@ main (int argc, char **argv) ...@@ -32,6 +34,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* TODO: currently doesn't print anything; SIGSEGV. /* TODO: currently doesn't print anything; SIGSEGV.
<https://gcc.gnu.org/PR66518>. */ <https://gcc.gnu.org/PR66518>. */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" { xfail *-*-* } } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,256\\\] is not mapped" { xfail *-*-* } } */
......
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-43.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -27,6 +28,7 @@ main (int argc, char **argv) ...@@ -27,6 +28,7 @@ main (int argc, char **argv)
h[i] = 0xab; h[i] = 0xab;
} }
fprintf (stderr, "CheCKpOInT\n");
acc_update_device (0, N); acc_update_device (0, N);
acc_copyout (h, N); acc_copyout (h, N);
...@@ -42,5 +44,6 @@ main (int argc, char **argv) ...@@ -42,5 +44,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */ /* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-44.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -27,6 +28,7 @@ main (int argc, char **argv) ...@@ -27,6 +28,7 @@ main (int argc, char **argv)
h[i] = 0xab; h[i] = 0xab;
} }
fprintf (stderr, "CheCKpOInT\n");
acc_update_device (h, 0); acc_update_device (h, 0);
acc_copyout (h, N); acc_copyout (h, N);
...@@ -42,5 +44,6 @@ main (int argc, char **argv) ...@@ -42,5 +44,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-47.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -25,6 +26,7 @@ main (int argc, char **argv) ...@@ -25,6 +26,7 @@ main (int argc, char **argv)
memset (&h[0], 0, N); memset (&h[0], 0, N);
fprintf (stderr, "CheCKpOInT\n");
acc_update_self (0, N); acc_update_self (0, N);
for (i = 0; i < N; i++) for (i = 0; i < N; i++)
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */ /* { dg-output "\\\[\[^\n\r]*,256\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-48.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -25,6 +26,7 @@ main (int argc, char **argv) ...@@ -25,6 +26,7 @@ main (int argc, char **argv)
memset (&h[0], 0, N); memset (&h[0], 0, N);
fprintf (stderr, "CheCKpOInT\n");
acc_update_self (h, 0); acc_update_self (h, 0);
for (i = 0; i < N; i++) for (i = 0; i < N; i++)
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,0\\\] is not mapped" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-52.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -14,6 +15,7 @@ main (int argc, char **argv) ...@@ -14,6 +15,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_map_data (0, d, N); acc_map_data (0, d, N);
acc_unmap_data (h); acc_unmap_data (h);
...@@ -25,6 +27,7 @@ main (int argc, char **argv) ...@@ -25,6 +27,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[^\n\r]*,\\\+256\]->\[\[0-9a-fA-FxX\]+,\\\+256\\\] is a bad map" { target openacc_nvidia_accel_selected } } */ /* { dg-output "\\\[\[^\n\r]*,\\\+256\]->\[\[0-9a-fA-FxX\]+,\\\+256\\\] is a bad map" { target openacc_nvidia_accel_selected } } */
/* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */ /* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-53.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -14,6 +15,7 @@ main (int argc, char **argv) ...@@ -14,6 +15,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_map_data (h, 0, N); acc_map_data (h, 0, N);
acc_unmap_data (h); acc_unmap_data (h);
...@@ -25,6 +27,7 @@ main (int argc, char **argv) ...@@ -25,6 +27,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\]->\\\[\[^\n\r]*,\\\+256\\\] is a bad map" { target openacc_nvidia_accel_selected } } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+256\]->\\\[\[^\n\r]*,\\\+256\\\] is a bad map" { target openacc_nvidia_accel_selected } } */
/* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */ /* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-54.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -14,6 +15,7 @@ main (int argc, char **argv) ...@@ -14,6 +15,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_map_data (h, d, 0); acc_map_data (h, d, 0);
acc_unmap_data (h); acc_unmap_data (h);
...@@ -25,6 +27,7 @@ main (int argc, char **argv) ...@@ -25,6 +27,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\]->\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad map" { target openacc_nvidia_accel_selected } } */ /* { dg-output "\\\[\[0-9a-fA-FxX\]+,\\\+0\\\]->\\\[\[0-9a-fA-FxX\]+,\\\+0\\\] is a bad map" { target openacc_nvidia_accel_selected } } */
/* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */ /* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-57.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -14,8 +15,14 @@ main (int argc, char **argv) ...@@ -14,8 +15,14 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
#if ACC_MEM_SHARED
fprintf (stderr, "CheCKpOInT\n");
#endif
acc_map_data (h, d, N); acc_map_data (h, d, N);
#if !ACC_MEM_SHARED
fprintf (stderr, "CheCKpOInT\n");
#endif
acc_unmap_data (d); acc_unmap_data (d);
acc_free (d); acc_free (d);
...@@ -25,6 +32,7 @@ main (int argc, char **argv) ...@@ -25,6 +32,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\[0-9a-fA-FxX\]+ is not a mapped block" { target openacc_nvidia_accel_selected } } */ /* { dg-output "\[0-9a-fA-FxX\]+ is not a mapped block" { target openacc_nvidia_accel_selected } } */
/* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */ /* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-58.c
/* { dg-do run } */ /* { dg-do run } */
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -14,8 +15,14 @@ main (int argc, char **argv) ...@@ -14,8 +15,14 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
#if ACC_MEM_SHARED
fprintf (stderr, "CheCKpOInT\n");
#endif
acc_map_data (h, d, N); acc_map_data (h, d, N);
#if !ACC_MEM_SHARED
fprintf (stderr, "CheCKpOInT\n");
#endif
acc_unmap_data (0); acc_unmap_data (0);
acc_free (d); acc_free (d);
...@@ -25,6 +32,7 @@ main (int argc, char **argv) ...@@ -25,6 +32,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "\[^\n\r]* is not a mapped block" { target openacc_nvidia_accel_selected } } */ /* { dg-output "\[^\n\r]* is not a mapped block" { target openacc_nvidia_accel_selected } } */
/* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */ /* { dg-output "cannot map data on shared-memory system" { target openacc_host_selected } } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-62.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -25,6 +26,7 @@ main (int argc, char **argv) ...@@ -25,6 +26,7 @@ main (int argc, char **argv)
memset (&h[0], 0, N); memset (&h[0], 0, N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_to_device (d, h, N << 1); acc_memcpy_to_device (d, h, N << 1);
acc_memcpy_from_device (h, d, N); acc_memcpy_from_device (h, d, N);
...@@ -42,5 +44,6 @@ main (int argc, char **argv) ...@@ -42,5 +44,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid size" } */ /* { dg-output "invalid size" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-63.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -21,6 +22,7 @@ main (int argc, char **argv) ...@@ -21,6 +22,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_to_device (0, h, N); acc_memcpy_to_device (0, h, N);
memset (&h[0], 0, N); memset (&h[0], 0, N);
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid device address" } */ /* { dg-output "invalid device address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-64.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -21,6 +22,7 @@ main (int argc, char **argv) ...@@ -21,6 +22,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_to_device (d, 0, N); acc_memcpy_to_device (d, 0, N);
memset (&h[0], 0, N); memset (&h[0], 0, N);
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid host address" } */ /* { dg-output "invalid host address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-65.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -21,6 +22,7 @@ main (int argc, char **argv) ...@@ -21,6 +22,7 @@ main (int argc, char **argv)
d = acc_malloc (N); d = acc_malloc (N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_to_device (d, d, N); acc_memcpy_to_device (d, d, N);
memset (&h[0], 0, N); memset (&h[0], 0, N);
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid host or device address" } */ /* { dg-output "invalid host or device address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-67.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -25,6 +26,7 @@ main (int argc, char **argv) ...@@ -25,6 +26,7 @@ main (int argc, char **argv)
memset (&h[0], 0, N); memset (&h[0], 0, N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_from_device (0, d, N); acc_memcpy_from_device (0, d, N);
for (i = 0; i < N; i++) for (i = 0; i < N; i++)
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid host address" } */ /* { dg-output "invalid host address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-68.c
/* { dg-do run { target openacc_nvidia_accel_selected } } */ /* { dg-do run { target openacc_nvidia_accel_selected } } */
#include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <openacc.h> #include <openacc.h>
...@@ -25,6 +26,7 @@ main (int argc, char **argv) ...@@ -25,6 +26,7 @@ main (int argc, char **argv)
memset (&h[0], 0, N); memset (&h[0], 0, N);
fprintf (stderr, "CheCKpOInT\n");
acc_memcpy_from_device (h, 0, N); acc_memcpy_from_device (h, 0, N);
for (i = 0; i < N; i++) for (i = 0; i < N; i++)
...@@ -40,5 +42,6 @@ main (int argc, char **argv) ...@@ -40,5 +42,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "invalid device address" } */ /* { dg-output "invalid device address" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-71.c
...@@ -92,6 +92,7 @@ main (int argc, char **argv) ...@@ -92,6 +92,7 @@ main (int argc, char **argv)
abort (); abort ();
} }
fprintf (stderr, "CheCKpOInT\n");
if (acc_async_test (1) != 0) if (acc_async_test (1) != 0)
{ {
fprintf (stderr, "asynchronous operation not running\n"); fprintf (stderr, "asynchronous operation not running\n");
...@@ -116,5 +117,6 @@ main (int argc, char **argv) ...@@ -116,5 +117,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "unknown async \[0-9\]+" } */ /* { dg-output "unknown async \[0-9\]+" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-77.c
...@@ -98,6 +98,7 @@ main (int argc, char **argv) ...@@ -98,6 +98,7 @@ main (int argc, char **argv)
abort (); abort ();
} }
fprintf (stderr, "CheCKpOInT\n");
acc_wait (1); acc_wait (1);
atime = stop_timer (0); atime = stop_timer (0);
...@@ -132,5 +133,6 @@ main (int argc, char **argv) ...@@ -132,5 +133,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "unknown async \[0-9\]+" } */ /* { dg-output "unknown async \[0-9\]+" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/lib-80.c
...@@ -105,6 +105,7 @@ main (int argc, char **argv) ...@@ -105,6 +105,7 @@ main (int argc, char **argv)
} }
} }
fprintf (stderr, "CheCKpOInT\n");
acc_wait_async (1, 1); acc_wait_async (1, 1);
acc_wait (1); acc_wait (1);
...@@ -129,5 +130,6 @@ main (int argc, char **argv) ...@@ -129,5 +130,6 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "identical parameters" } */ /* { dg-output "identical parameters" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-c-c++-common/present-1.c
...@@ -21,6 +21,7 @@ main (int argc, char **argv) ...@@ -21,6 +21,7 @@ main (int argc, char **argv)
d = (float *) acc_malloc (N * sizeof (float)); d = (float *) acc_malloc (N * sizeof (float));
acc_map_data (c, d, N * sizeof (float)); acc_map_data (c, d, N * sizeof (float));
fprintf (stderr, "CheCKpOInT\n");
#pragma acc data present (a[0:N]) present (c[0:N]) present (b[0:N]) #pragma acc data present (a[0:N]) present (c[0:N]) present (b[0:N])
{ {
#pragma acc parallel #pragma acc parallel
...@@ -45,5 +46,7 @@ main (int argc, char **argv) ...@@ -45,5 +46,7 @@ main (int argc, char **argv)
return 0; return 0;
} }
/* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
/* { dg-output "present clause: !acc_is_present" } */ /* { dg-output "present clause: !acc_is_present" } */
/* { dg-shouldfail "" } */ /* { dg-shouldfail "" } */
libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90
! { dg-shouldfail "" { *-*-* } { "*" } { "" } }
program main program main
implicit none implicit none
print *, "CheCKpOInT"
!$acc parallel !$acc parallel
call abort call abort
!$acc end parallel !$acc end parallel
end program main end program main
! { dg-output "CheCKpOInT" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-1.f
...@@ -6,12 +6,13 @@ ...@@ -6,12 +6,13 @@
INTEGER I INTEGER I
CALL ACC_COPYIN (I) CALL ACC_COPYIN (I)
WRITE(0, *) "CheCKpOInT"
!$ACC DATA COPY (I) !$ACC DATA COPY (I)
I = 0 I = 0
!$ACC END DATA !$ACC END DATA
END END
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } ! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" }
! { dg-shouldfail "" } ! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-2.f
...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
INTEGER I INTEGER I
!$ACC DATA PRESENT_OR_COPY (I) !$ACC DATA PRESENT_OR_COPY (I)
WRITE(0, *) "CheCKpOInT"
!$ACC DATA COPYOUT (I) !$ACC DATA COPYOUT (I)
I = 0 I = 0
!$ACC END DATA !$ACC END DATA
...@@ -12,5 +13,6 @@ ...@@ -12,5 +13,6 @@
END END
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } ! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" }
! { dg-shouldfail "" } ! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-3.f
...@@ -6,10 +6,12 @@ ...@@ -6,10 +6,12 @@
INTEGER I INTEGER I
!$ACC DATA PRESENT_OR_COPY (I) !$ACC DATA PRESENT_OR_COPY (I)
WRITE(0, *) "CheCKpOInT"
CALL ACC_COPYIN (I) CALL ACC_COPYIN (I)
!$ACC END DATA !$ACC END DATA
END END
! { dg-shouldfail "" } ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" } ! { dg-output "already mapped to" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-4.f
...@@ -6,9 +6,11 @@ ...@@ -6,9 +6,11 @@
INTEGER I INTEGER I
CALL ACC_PRESENT_OR_COPYIN (I) CALL ACC_PRESENT_OR_COPYIN (I)
WRITE(0, *) "CheCKpOInT"
CALL ACC_COPYIN (I) CALL ACC_COPYIN (I)
END END
! { dg-shouldfail "" } ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" } ! { dg-output "already mapped to" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-5.f
...@@ -6,9 +6,11 @@ ...@@ -6,9 +6,11 @@
INTEGER I INTEGER I
!$ACC ENTER DATA CREATE (I) !$ACC ENTER DATA CREATE (I)
WRITE(0, *) "CheCKpOInT"
CALL ACC_COPYIN (I) CALL ACC_COPYIN (I)
END END
! { dg-shouldfail "" } ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" } ! { dg-output "already mapped to" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-6.f
...@@ -6,9 +6,11 @@ ...@@ -6,9 +6,11 @@
INTEGER I INTEGER I
CALL ACC_PRESENT_OR_COPYIN (I) CALL ACC_PRESENT_OR_COPYIN (I)
WRITE(0, *) "CheCKpOInT"
!$ACC ENTER DATA CREATE (I) !$ACC ENTER DATA CREATE (I)
END END
! { dg-shouldfail "" } ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" } ! { dg-output "already mapped to" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-7.f
...@@ -6,9 +6,11 @@ ...@@ -6,9 +6,11 @@
INTEGER I INTEGER I
!$ACC ENTER DATA CREATE (I) !$ACC ENTER DATA CREATE (I)
WRITE(0, *) "CheCKpOInT"
CALL ACC_CREATE (I) CALL ACC_CREATE (I)
END END
! { dg-shouldfail "" } ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "already mapped to" } ! { dg-output "already mapped to" }
! { dg-shouldfail "" }
libgomp/testsuite/libgomp.oacc-fortran/data-already-8.f
...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
INTEGER I INTEGER I
!$ACC DATA CREATE (I) !$ACC DATA CREATE (I)
WRITE(0, *) "CheCKpOInT"
!$ACC PARALLEL COPYIN (I) !$ACC PARALLEL COPYIN (I)
I = 0 I = 0
!$ACC END PARALLEL !$ACC END PARALLEL
...@@ -12,5 +13,6 @@ ...@@ -12,5 +13,6 @@
END END
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } ! { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" }
! { dg-shouldfail "" } ! { dg-shouldfail "" }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment