libgfortran: Fix namelist read.
[official-gcc.git] / gcc / testsuite / g++.dg / pr98213.C
blob1a744eb2a3eb24f9df235e5e380098c433070c30
1 /* { dg-do compile } */
2 /* { dg-options "-O3" } */
4 #include <algorithm>
6 long var_23;
7 int var_24, test_var_8;
8 extern bool arr_20[][13];
9 char arr_21_0_0_0_0_0;
10 int *test_arr_0;
11 void test(unsigned long long var_1)
13   int arr_16;
14   for (int i_0 = 0;;)
15     for (int i_5; i_5;) {
16       for (int i_6 = 0; i_6 < 19; i_6 += 4)
17         for (long i_7(test_var_8); i_7; i_7 += 2) {
18           arr_20[0][i_7] = arr_21_0_0_0_0_0 = 0;
19           var_23 = test_arr_0[0];
20         }
21       var_24 = std::max((unsigned long long)arr_16,
22                         std::min((unsigned long long)5, var_1));
23     }