gcc/testsuite/gcc.c-torture/compile/940718-1.c

extern double log (double) __attribute__ ((const));

f (double x)
{
  for (;;)
    exp(log(x));
}