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