1 // { dg-do compile }
2 // { dg-require-effective-target pthread }
3 // { dg-options "-O3 -ftree-parallelize-loops=4" }
4
5 typedef double EXPRESS[5];
6
7 extern int Terms;
8
Parse_Rel_Factor(EXPRESS Express,int * Terms)9 void Parse_Rel_Factor (EXPRESS Express, int *Terms)
10 {
11 EXPRESS Local_Express = {5.0, 4.0, 3.0, 2.0, 1.0};
12 int Local_Terms = 5;
13
14 int i;
15
16 for (i = (*Terms); i < Local_Terms; i++)
17 Express[i] = 0.0;
18
19 Express[i] += Local_Express[i];
20 }
21
Parse_Float()22 double Parse_Float ()
23 {
24 EXPRESS Express = {1.0, 2.0, 3.0, 4.0, 5.0};
25
26 Parse_Rel_Factor (Express, &Terms);
27 return 0.0;
28 }
29