libgloss/testsuite/libgloss.all/double.c

   1 /* Oki bug report [OKI001](gcc008_1)
   2
   3         The following program is not executed.
   4         error messages are as follow.
   5
   6         illegal trap: 0x12 pc=d000d954
   7         d000d954 08000240  NOP
   8  */
   9
  10 #include <stdio.h>
  11 extern double dcall ();
  12
  13 main ()
  14 {
  15   double d1, d2, d3;
  16   int i;
  17
  18   d1 = dcall (1.);
  19   printf ("d1 = %e\n", d1);
  20
  21   pass ("double [OKI001]");
  22   fflush(stdout);
  23 }
  24
  25 double
  26 dcall (d)
  27      double d;
  28 {
  29   int Zero = 0;
  30   return d + Zero;
  31 }
  32
  33