summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/dfp/pragma-float-const-decimal64-1.c
blob: 62d85b6d349bb0092d7b0dc10ec841f37aa25777 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
/* { dg-do compile } */
/* { dg-options "-Wall" } */

/* N1312 7.1.1: The FLOAT_CONST_DECIMAL64 pragma.
   C99 6.4.4.2a (New).

   Verify that the pragma has the expected result by using unsuffixed
   float constants as operands in expressions that would mix binary and
   decimal operands if the pragma had no effect, or the wrong effect.  */

#pragma STDC FLOAT_CONST_DECIMAL64 ON
double a = 1.0 * 2.0dd;

double
f1 (void)
{
#pragma STDC FLOAT_CONST_DECIMAL64 OFF
  double b = 2.0 * 3.0d;

  {
    double c = 3.0 * 4.0d;
    b = b + c;
  }

  {
#pragma STDC FLOAT_CONST_DECIMAL64 ON
    double d = 4.0 * 5.0dd;

    b = b + d;
  }

  {
     /* Default is OFF.  */
#pragma STDC FLOAT_CONST_DECIMAL64 DEFAULT
     double e = 5.0 * 6.0d;
     b = b + e;
  }

  return b;
}

double
f2 (void)
{
  /* Use value from outer scope, which is ON.  */
  double b = 2.0 * 3.0dd;

  {
#pragma STDC FLOAT_CONST_DECIMAL64 OFF
    double c = 3.0 * 4.0d;

    {
#pragma STDC FLOAT_CONST_DECIMAL64 ON
      double d = 4.0 * 5.0dd;

      {
#pragma STDC FLOAT_CONST_DECIMAL64 DEFAULT
	double e = 5.0 * 6.0d;

	{
#pragma STDC FLOAT_CONST_DECIMAL64 ON
	  double f = 6.0 * 7.0dd;

	  b = a + b + c + d + e + f;
	}
      }
    }
  }
  return b;
}

/* Use previous value from this scope, which is ON.  */
double f = 6.0 * 7.0dd;

double
f3 (void)
{
#pragma STDC FLOAT_CONST_DECIMAL64 OFF
  double b = 2.0 * 3.0d;

  return b + f;
}

/* Return to the state from this scope, which is ON.  */
double g = 7.0 + 8.0dd;