Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / torture / pr116842.C
blob39821390046ceba97a737c0e58724e2b7f46fd66
1 // { dg-do compile }
3 short a, b, c;
4 unsigned d(unsigned, int e) { return e; }
5 void f(bool g, short e[][3][3][3][3], unsigned h[][3][3], char i[][8],
6        short j[][18][18][18], short k[][18][18][18], short l[][8][8][8][8])
8   for (char m;;)
9     {
10       for (short n = 0; n < 8; n += 5)
11         a = j[m][6][2][m];
12       for (short o(l[m][m][m][m][m] / i[m][m] ?: e[m][m][4][m][2]); o; o = g)
13         for (char p; p < (c && i[g]) + 7; p += 2)
14           b = d(h[6][g][2], k[m][5][g][2] != m);
15     }