summaryrefslogtreecommitdiff
path: root/examples/gfcc/compiler/fibonacci.c
blob: c5a791bdf3383be2a42bdf81659026d002583876 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
int mx () {
  return 5000000 ;
} ;

int main () {
  int lo ; int hi ;
  lo = 1 ;
  hi = lo ;
  printf(int,lo) ;
  {
    while (hi < mx()) {
      printf(int,hi) ;
      hi = lo + hi ;
      lo = hi - lo ;
      }
  }
  return ;
} ;