1 /* { dg-do compile { target s390x-*-* *-*-*vms* } } */
3 typedef char* char_ptr32
__attribute__ ((mode(SI
)));
5 char_ptr32
getenv (const char *name
);
6 unsigned long strlen (const char *str
);
9 __gnat_getenv (char *name
, int *len
, char **value
)
11 *value
= getenv (name
);
12 *len
= strlen (*value
);