1  long double C = 2;
       2  long double U = 1;
       3  long double Y2 = 3;
       4  long double Y1 = 1;
       5  long double X, Y, Z, T, R, S;
       6  main ()
       7  {
       8    X = (C + U) * Y2;
       9    Y = C - U - U;
      10    Z = C + U + U;
      11    T = (C - U) * Y1;
      12    X = X - (Z + U);
      13    R = Y * Y1;
      14    S = Z * Y2;
      15    T = T - Y;
      16    Y = (U - Y) + R;
      17    Z = S - (Z + U + U);
      18    R = (Y2 + U) * Y1;
      19    Y1 = Y2 * Y1;
      20    R = R - Y2;
      21    Y1 = Y1 - 0.5L;
      22    if (Z != 6)
      23      abort ();
      24    exit (0);
      25  }