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

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

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

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