Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / warn / pr33738-2.C
blob1ab121893ee440c2f10ee683ecba9452e3c763a1
1 // { dg-do run }
2 // { dg-prune-output "use of enum values across objects may fail" }
3 // { dg-options "-O2 -Wtype-limits -fstrict-enums -fshort-enums" }
4 extern void link_error (void);
6 enum Alpha {
7  ZERO = 0, ONE, TWO, THREE
8 };
10 Alpha a2;
12 int m1 = -1;
13 int GetM1() {
14  return m1;
17 int main() {
18  a2 = static_cast<Alpha>(GetM1());
19  if (a2 == -1) {        // { dg-warning "always false due" } */
20     link_error ();
21  }
22  a2 = static_cast<Alpha>(GetM1());
23  if (-1 == a2) {        // { dg-warning "always false due" } */
24     link_error ();
25  }
26  return 0;