Fortran/OpenMP: Middle-end support for mapping of DT with allocatable components

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

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

f(x, c)
{
  for (;;)
    {
      if (x << c) break;
      x++;
    }
}