From e4748e998453b979af46983a079f2ec3d307ada4 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 2 Mar 2010 19:10:56 +0000
Subject: restored gfcc example (GF C compiler)

---
 examples/gfcc/fibonacci.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/gfcc/fibonacci.c

(limited to 'examples/gfcc/fibonacci.c')

diff --git a/examples/gfcc/fibonacci.c b/examples/gfcc/fibonacci.c
new file mode 100644
index 000000000..80e8a0d5c
--- /dev/null
+++ b/examples/gfcc/fibonacci.c
@@ -0,0 +1,18 @@
+int mx () {
+  return 5000000 ;
+} ;
+
+int main () {
+  int lo ; int hi ;
+  lo = 1 ;
+  hi = lo ;
+  printf("%d",lo) ;
+  {
+    while (hi < mx()) {
+      printf("%d",hi) ;
+      hi = lo + hi ;
+      lo = hi - lo ;
+      }
+  }
+  return ;
+} ;
-- 
cgit v1.2.3