1/* Verify that 387 fptan instruction is generated. Also check that
2   inherent load of 1.0 is used in further calculations.  */
3
4/* { dg-do compile } */
5/* { dg-options "-O2 -ffast-math -mfpmath=387 -mfancy-math-387" } */
6/* { dg-final { scan-assembler "fptan" } } */
7/* { dg-final { scan-assembler-not "fld1" } } */
8
9extern double tan (double);
10
11double f1(double x)
12{
13  return 1.0 / tan(x);
14}
15
16