libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gcc.dg / pr28121.c
blob5cbf8f89e943773946c57a75a8c60ca684c32836
1 /* { dg-do compile } */
2 /* { dg-options "-O2" } */
4 short
5 GetCmd ()
7 int c, c1;
8 for (c = 255; c == 255;)
10 c = GetMouseButton ();
11 if (c >= 0)
13 c = ParsePos (c, -1, 0);
14 c1 = ParsePos (c1, c, 1);
15 if (c == c1 && (c >= 0 || c == -10))
17 return c;
19 if (c >= 0 && c1 == -12)
21 return ((((((10) + 1) + 1)) + 1) << 7) | c;
23 c = 255;