Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/acc_on_device-1.c @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Disable the acc_on_device builtin; we want to test the libgomp library function. */ /* { dg-additional-options "-fno-builtin-acc_on_device" } */ #include <stdlib.h> #include <openacc.h> int main (int argc, char *argv[]) { /* Host. */ { if (!acc_on_device (acc_device_none)) abort (); if (!acc_on_device (acc_device_host)) abort (); if (acc_on_device (acc_device_not_host)) abort (); if (acc_on_device (acc_device_nvidia)) abort (); } /* Host via offloading fallback mode. */ #pragma acc parallel if(0) { if (!acc_on_device (acc_device_none)) abort (); if (!acc_on_device (acc_device_host)) abort (); if (acc_on_device (acc_device_not_host)) abort (); if (acc_on_device (acc_device_nvidia)) abort (); } #if !ACC_DEVICE_TYPE_host /* Offloaded. */ #pragma acc parallel { if (acc_on_device (acc_device_none)) abort (); if (acc_on_device (acc_device_host)) abort (); if (!acc_on_device (acc_device_not_host)) abort (); #if ACC_DEVICE_TYPE_nvidia if (!acc_on_device (acc_device_nvidia)) abort (); #else if (acc_on_device (acc_device_nvidia)) abort (); #endif } #endif return 0; }