libgomp/testsuite/libgomp.oacc-c-c++-common/structured-dynamic-lifetimes-1.c

   1 /* Test transitioning of data lifetimes between structured and dynamic.  */
   2
   3 /* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
   4
   5 #include <openacc.h>
   6 #include <assert.h>
   7 #include <stdlib.h>
   8
   9 #define SIZE 1024
  10
  11 void
  12 f1 (void)
  13 {
  14   char *block1 = (char *) malloc (SIZE);
  15
  16 #ifdef OPENACC_API
  17   acc_copyin (block1, SIZE);
  18   acc_copyin (block1, SIZE);
  19 #else
  20 #pragma acc enter data copyin(block1[0:SIZE])
  21 #pragma acc enter data copyin(block1[0:SIZE])
  22 #endif
  23
  24 #pragma acc data copy(block1[0:SIZE])
  25   {
  26 #ifdef OPENACC_API
  27     acc_copyin (block1, SIZE);
  28 #else
  29 #pragma acc enter data copyin(block1[0:SIZE])
  30 #endif
  31   }
  32
  33   assert (acc_is_present (block1, SIZE));
  34
  35 #ifdef OPENACC_API
  36   acc_copyout (block1, SIZE);
  37   assert (acc_is_present (block1, SIZE));
  38   acc_copyout (block1, SIZE);
  39   assert (acc_is_present (block1, SIZE));
  40   acc_copyout (block1, SIZE);
  41   assert (!acc_is_present (block1, SIZE));
  42 #else
  43 #pragma acc exit data copyout(block1[0:SIZE])
  44   assert (acc_is_present (block1, SIZE));
  45 #pragma acc exit data copyout(block1[0:SIZE])
  46   assert (acc_is_present (block1, SIZE));
  47 #pragma acc exit data copyout(block1[0:SIZE])
  48   assert (!acc_is_present (block1, SIZE));
  49 #endif
  50
  51   free (block1);
  52 }
  53
  54 void
  55 f2 (void)
  56 {
  57   char *block1 = (char *) malloc (SIZE);
  58
  59 #ifdef OPENACC_API
  60   acc_copyin (block1, SIZE);
  61 #else
  62 #pragma acc enter data copyin(block1[0:SIZE])
  63 #endif
  64
  65 #pragma acc data copy(block1[0:SIZE])
  66   {
  67 #ifdef OPENACC_API
  68     acc_copyout (block1, SIZE);
  69 #else
  70 #pragma acc exit data copyout(block1[0:SIZE])
  71 #endif
  72     /* This should stay present until the end of the structured data
  73        lifetime.  */
  74     assert (acc_is_present (block1, SIZE));
  75   }
  76
  77   assert (!acc_is_present (block1, SIZE));
  78
  79   free (block1);
  80 }
  81
  82 void
  83 f3 (void)
  84 {
  85   char *block1 = (char *) malloc (SIZE);
  86
  87 #ifdef OPENACC_API
  88   acc_copyin (block1, SIZE);
  89 #else
  90 #pragma acc enter data copyin(block1[0:SIZE])
  91 #endif
  92
  93 #pragma acc data copy(block1[0:SIZE])
  94   {
  95 #ifdef OPENACC_API
  96     acc_copyout (block1, SIZE);
  97     acc_copyin (block1, SIZE);
  98 #else
  99 #pragma acc exit data copyout(block1[0:SIZE])
 100 #pragma acc enter data copyin(block1[0:SIZE])
 101 #endif
 102     assert (acc_is_present (block1, SIZE));
 103   }
 104
 105   assert (acc_is_present (block1, SIZE));
 106 #ifdef OPENACC_API
 107   acc_copyout (block1, SIZE);
 108 #else
 109 #pragma acc exit data copyout(block1[0:SIZE])
 110 #endif
 111   assert (!acc_is_present (block1, SIZE));
 112
 113   free (block1);
 114 }
 115
 116 void
 117 f4 (void)
 118 {
 119   char *block1 = (char *) malloc (SIZE);
 120   char *block2 = (char *) malloc (SIZE);
 121   char *block3 = (char *) malloc (SIZE);
 122
 123 #pragma acc data copy(block1[0:SIZE], block2[0:SIZE], block3[0:SIZE])
 124   {
 125   /* The first copyin of block2 is the enclosing data region.  This
 126      "enter data" should make it live beyond the end of this region.
 127      This works, though the on-target copies of block1, block2 and block3
 128      will stay allocated until block2 is unmapped because they are bound
 129      together in a single target_mem_desc.  */
 130 #ifdef OPENACC_API
 131     acc_copyin (block2, SIZE);
 132 #else
 133 #pragma acc enter data copyin(block2[0:SIZE])
 134 #endif
 135   }
 136
 137   assert (!acc_is_present (block1, SIZE));
 138   assert (acc_is_present (block2, SIZE));
 139   assert (!acc_is_present (block3, SIZE));
 140
 141 #ifdef OPENACC_API
 142   acc_copyout (block2, SIZE);
 143 #else
 144 #pragma acc exit data copyout(block2[0:SIZE])
 145 #endif
 146   assert (!acc_is_present (block2, SIZE));
 147
 148   free (block1);
 149   free (block2);
 150   free (block3);
 151 }
 152
 153 int
 154 main (int argc, char *argv[])
 155 {
 156   f1 ();
 157   f2 ();
 158   f3 ();
 159   f4 ();
 160   return 0;
 161 }