mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 10:50:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add tests for print from offload target.

Browse Source 
2019-11-15  Andrew Stubbs  <ams@codesourcery.com>

	libgomp/
	* testsuite/libgomp.c/target-print-1.c: New file.
	* testsuite/libgomp.fortran/target-print-1.f90: New file.
	* testsuite/libgomp.oacc-c/print-1.c: New file.
	* testsuite/libgomp.oacc-fortran/print-1.f90: New file.

From-SVN: r278284
This commit is contained in:
Andrew Stubbs 2019-11-15 10:49:10 +00:00 committed by Andrew Stubbs
parent 3739bcc8c8
commit 8916ba874d
5 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgomp/ChangeLog
View File

@ -1,3 +1,10 @@
2019-11-15 Andrew Stubbs <ams@codesourcery.com>
* testsuite/libgomp.c/target-print-1.c: New file.
* testsuite/libgomp.fortran/target-print-1.f90: New file.
* testsuite/libgomp.oacc-c/print-1.c: New file.
* testsuite/libgomp.oacc-fortran/print-1.f90: New file.
2019-11-13 Andrew Stubbs <ams@codesourcery.com>
Kwok Cheung Yeung <kcy@codesourcery.com>
Julian Brown <julian@codesourcery.com>

17
libgomp/testsuite/libgomp.c/target-print-1.c Normal file
View File

@ -0,0 +1,17 @@
/* Ensure that printf on the offload device works. */
/* { dg-do run } */
/* { dg-output "The answer is 42(\n|\r\n|\r)+" } */
#include <stdio.h>
int var = 42;
int
main ()
{
#pragma omp target
{
printf ("The answer is %d\n", var);
}
}

15
libgomp/testsuite/libgomp.fortran/target-print-1.f90 Normal file
View File

@ -0,0 +1,15 @@
! Ensure that printf on the offload device works.
! { dg-do run }
! { dg-output "The answer is 42(\n|\r\n|\r)+" }
! { dg-xfail-if "no write for nvidia" { openacc_nvidia_accel_selected } }
program main
implicit none
integer :: var = 42
!$omp target
write (0, '("The answer is ", I2)') var
!$omp end target
end program main

17
libgomp/testsuite/libgomp.oacc-c/print-1.c Normal file
View File

@ -0,0 +1,17 @@
/* Ensure that printf on the offload device works. */
/* { dg-do run } */
/* { dg-output "The answer is 42(\n|\r\n|\r)+" } */
#include <stdio.h>
int var = 42;
int
main ()
{
#pragma acc parallel
{
printf ("The answer is %d\n", var);
}
}

15
libgomp/testsuite/libgomp.oacc-fortran/print-1.f90 Normal file
View File

@ -0,0 +1,15 @@
! Ensure that printf on the offload device works.
! { dg-do run }
! { dg-output "The answer is 42(\n|\r\n|\r)+" }
! { dg-xfail-if "no write for nvidia" { openacc_nvidia_accel_selected } }
program main
implicit none
integer :: var = 42
!$acc parallel
write (0, '("The answer is ", I2)') var
!$acc end parallel
end program main