testsuite: powerpc: fix dg-do run typo
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 930608-1.c
blob1f29aa5d07bfdfc9e0fd51f1ae88afece8001337
1 void abort (void);
2 void exit (int);
4 double f (double a) {}
5 double (* const a[]) (double) = {&f};
7 int
8 main (void)
10 double (*p) ();
11 p = &f;
12 if (p != a[0])
13 abort ();
14 exit (0);