PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / scop-19.c
blob9dfc86580f5e088aa3daa96a514dee450dd40c4a
1 typedef unsigned int __uint32_t;
2 typedef __uint32_t __size_t;
3 typedef __size_t size_t;
4 struct demangle_component
6 union
8 } u;
9 };
10 enum d_builtin_type_print
12 D_PRINT_VOID
14 struct d_growable_string
16 size_t alc;
18 void
19 d_growable_string_resize (struct d_growable_string *dgs, size_t need)
21 size_t newalc;
22 newalc = dgs->alc > 0 ? dgs->alc : 2;
23 while (newalc < need)
24 newalc <<= 1;
26 void
27 d_growable_string_append_buffer (struct d_growable_string *dgs,
28 const char *s, size_t l)
30 size_t need;
31 if (need > dgs->alc)
32 d_growable_string_resize (dgs, need);
34 /* { dg-final { scan-tree-dump-times "number of SCoPs: 0" 2 "graphite"} } */
35 /* { dg-final { cleanup-tree-dump "graphite" } } */