File: ghost_lexing.res.oracle

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 (30 lines) | stat: -rw-r--r-- 477 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
 
[kernel] Parsing ghost_lexing.i (no preprocessing)
/* Generated by Frama-C */
int G = 0;
/*@ ghost int H = 1; */
char const *foo = "foo";
void test(char const *);

void test2(int x)
{
  /*@ ghost int y = 0; */
  /*@ ghost if (x > 0) y = x * x; */
  G = x * x;
  test(foo);
  return;
}

void f(void)
{
  /*@ ghost L: ; */
  G ++;
  /*@ assert \at(G,L) + 1 ≡ G; */ ;
  L1: ;
  /*@ ghost H = G; */
  G ++;
  if (G < 30) goto L1;
  /*@ assert H ≡ \at(G,L1); */ ;
  return;
}