Fortran: Fix PR 47485.

[gcc.git] / gcc / testsuite / g++.dg / ubsan / div-by-zero-1.C

/* { dg-do compile } */
/* { dg-options "-fsanitize=integer-divide-by-zero" } */

void
foo (int i)
{
  switch (i)
  case 0 * (1 / 0): /* { dg-warning "division by zero" } */
    ;  /* { dg-error "is not a constant.expression" "" { target *-*-* } .-1 } */
}