aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/gupc/get-hi-strict.upc
blob: ab43e38f1d2f7afcd88ab80eb0ba92c00a602dbb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/* { dg-do compile } */
/* { dg-options "-fdump-tree-original" } */

/* The base address of the UPC shared section */
extern char __upc_shared_start[1];

typedef unsigned int uint_hi_t __attribute__ ((__mode__(__HI__)));

/* UPC runtime remote access prototype */
extern uint_hi_t __getshi2 (upc_shared_ptr_t);

strict shared uint_hi_t x;

uint_hi_t p () {
  return x;
}

/* { dg-final { scan-tree-dump-times "getshi2" 1 "original" } } */
/* { dg-final { scan-tree-dump-times "get|put" 1 "original" } } */