Fortran: Suppress wrong End Of File error with user defined IO.

[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / gronk.c

/* { dg-additional-options "-std=gnu89" } */

test_opt (a, b)
     unsigned a, b;
{
  a = a / b;
  if (a == 0)
    a++;
  return a;
}