File: test44.ci

package info (click to toggle)
clif 0.93-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 3,616 kB
  • ctags: 2,881
  • sloc: ansic: 31,464; yacc: 5,067; lex: 819; makefile: 389; sh: 48
file content (27 lines) | stat: -rw-r--r-- 388 bytes parent folder | download | duplicates (7) 
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
 
int a;
int
b (int a)
{
  int b;
  
  b = 2 * a;
  {
    double a;

    printf ("input double a\n");
    scanf ("%lf", a);
    printf ("double a = %g\n", a);
    a = a + b;
    printf ("double a = %g\n", a);
  }
  printf ("function a = %d\n", a);
  printf ("function b = %d\n", b);
  return b;
}

printf ("input int a\n");
scanf ("%d", a);

a = b (a);
printf ("global a = %d\n", a);
exit;