gcc-4.9/gcc/testsuite/gcc.c-torture/compile/20111209-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13

/* { dg-do compile { target s390x-*-* *-*-*vms* } } */

typedef char* char_ptr32 __attribute__ ((mode(SI)));

char_ptr32 getenv (const char *name);
unsigned long strlen (const char *str);

void
__gnat_getenv (char *name, int *len, char **value)
{
  *value = getenv (name);
  *len = strlen (*value);
}