Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / torture / pr48165.C
bloba42893f604de1b89c5dc297f6df289fb9d297ee3
1 /* { dg-do compile } */
3 typedef __SIZE_TYPE__ size_t;
5 extern "C" {
6     extern __inline __attribute__ ((__always_inline__))
7     __attribute__ ((__gnu_inline__, __artificial__)) void *
8     memcpy (void *__restrict __dest, __const void *__restrict __src,
9             size_t __len) throw ()
10       {
11         return __builtin___memcpy_chk (__dest, __src, __len,
12                                        __builtin_object_size (__dest, 0));
13       }
16 typedef char TCODE[20];
17 typedef TCODE TCODE_ARRAY[5];
18 typedef struct PARAM
20   TCODE_ARRAY tcode;
21 } PARAM;
23 static void foo (void* p)
25   char buffer[4+sizeof(PARAM)];
26   PARAM *param = (PARAM *)(buffer + 4);
27   int i;
29   for (i=0; i < 5; i++)
30     {
31       memcpy( param->tcode[i], p, 20 );
32     }
35 void bar (void* p)
37   foo (p);