Fortran: Fix PR 47485.
[official-gcc.git] / gcc / testsuite / gcc.dg / pr28888.c
blobdea52f1b269dd883698cd8b4fc7fa30cdf7ca148
1 /* { dg-do compile } */
2 /* { dg-options "-std=gnu17 -O2 -ftree-vectorize" } */
4 static const unsigned char _c30[] =
5 "statistic of allocated integer registers:";
6 void Out__LongInt ();
7 int
8 Allocate__WriteStats (void)
10 register int i0, i1, i2, i3, i4, i5;
11 l0:i1 = (int) (i5 << 2);
12 if (i0)
13 i4 = i5;
14 l1:i2 += i1;
15 if (i1)
16 goto l0;
17 l3:i0 = i1 == 255;
18 i1++;
19 Out__LongInt ((int) i0, (int) 0);
20 i0 = i4 >= i1;
21 if (i0)
22 goto l3;