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
       9  __gnat_getenv (char *name, int *len, char **value)
      10  {
      11    *value = getenv (name);
      12    *len = strlen (*value);
      13  }