File: init_float.i

package info (click to toggle)
frama-c 20220511-manganese-5
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 66,492 kB
  • sloc: ml: 278,834; ansic: 47,093; sh: 4,823; makefile: 3,613; javascript: 2,436; python: 1,919; perl: 897; lisp: 293; xml: 62
file content (44 lines) | stat: -rw-r--r-- 812 bytes parent folder | download | duplicates (2)
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
/* run.config*
   OPT:  -eva @EVA_CONFIG@ -float-normal -lib-entry
*/

typedef struct S { float y; } S;

S s;

double r, cv, un, zp, zm, zs;

long long l;

double Ha[5], THa[5];

/*@
	requires -1000.0 <= x <= 1000.0;
	requires 0.0 <= s.y <= 0.0;
*/

int main(float x)
{
  Ha[2] = 0.5;
  Ha[3] = 0x0.8000000000001p0;
  Ha[4] = 0x0.8000000000002p0;
  Ha[1] = 0x0.7ffffffffffffp0;
  Ha[0] = 0x0.7fffffffffffep0;

  THa[2] = 1.5;
  THa[3] = 0x1.8000000000001p0;
  THa[4] = 0x1.8000000000002p0;
  THa[1] = 0x1.7ffffffffffffp0;
  THa[0] = 0x1.7fffffffffffep0;

  if (l >= 4700000000000000000ll)  l = 4700000000000000000ll;
  if (l <= 4500000000000000001ll)  l = 4500000000000000001ll;
  cv = *(double*)&l + 1.0;
  r = x;
  s.y = s.y * 1.0;
  un = 1.0;
  zp = un - un;
  zm = - (un - un);
  zs = zp + zm;
  return 1;
}