libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gcc.dg / 20050309-1.c
blob8e11bc5c0723e1d2864e28545ffa1bf9c1d3a4d7
1 /* This caused an ICE on s390 due to incorrect secondary
2 output reloads. */
4 /* { dg-do compile } */
5 /* { dg-require-profiling "-fprofile-generate" } */
6 /* { dg-options "-O2 -fprofile-generate" } */
8 char *
9 test(char *ret, int *counter, void *schema,
10 const char* name, const char *namespace,
11 void *node, int topLevel)
13 char buf[30];
14 int val;
16 if (counter == 0) return 0;
17 if (schema == 0) return 0;
18 if (name == 0) return 0;
20 __builtin_memset (ret, 0, 100);
21 lookup (schema, name, -1);
22 val = hash (schema, name, namespace, name, ret);
23 if (val == 0) return ret;
25 if (topLevel != 0)
27 error (1, 0, 0, node, "%s", name);
28 return 0;
31 __snprintf_chk (buf, 29, 1, 30, "#eCont %d", ++*counter);
32 val = hash (schema, name, buf, namespace, ret);
33 if (val == 0) return ret;
35 error (1, 0, 0, node, "%s", name);
36 return 0;