(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.target/
s390/
pr42224.c
       1  /* { dg-do compile } */
       2  /* { dg-options "-O0 -Wno-implicit-function-declaration" } */
       3  
       4  typedef char* __char_ptr32 __attribute__ (( mode (SI) ));
       5  typedef __char_ptr32 *__char_ptr_char_ptr32 __attribute__ ((mode (SI)));
       6  
       7  void to_ptr32 (int x)
       8  {
       9    __char_ptr32 ptr = (__char_ptr32) x;
      10  }
      11  
      12  void to_int (__char_ptr32 ptr)
      13  {
      14    int x = (int) ptr;
      15  }
      16  
      17  __char_ptr_char_ptr32
      18  to_ptr32_ptr32 (char **ptr64)
      19  {
      20    int argc;
      21    __char_ptr_char_ptr32 short_argv;
      22  
      23    for (argc=0; ptr64[argc]; argc++);
      24  
      25    short_argv = (__char_ptr_char_ptr32) malloc32
      26      (sizeof (__char_ptr32) * (argc + 1));
      27  
      28    for (argc=0; ptr64[argc]; argc++)
      29      short_argv[argc] = (__char_ptr32) strdup32 (ptr64[argc]);
      30  
      31    short_argv[argc] = (__char_ptr32) 0;
      32    return short_argv;
      33  
      34  }
      35