1  /* { dg-do compile } */
       2  /* { dg-options "-O1" } */
       3  
       4  extern double floor (double);
       5  
       6  long foo (float f)
       7  {
       8  	  return (long) floor (f);
       9  }