modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/20111209-1.c (about)

     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  }