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