gfcc report

1 files changed, 18 insertions, 1 deletions

diff --git a/examples/gfcc/compiler/factorial.c b/examples/gfcc/compiler/factorial.c
index 2a1c3f5f3..76fee32d0 100644
--- a/examples/gfcc/compiler/factorial.c
+++ b/examples/gfcc/compiler/factorial.c
@@ -10,11 +10,28 @@ int fact (int n) {
   return f ;
 } ;
 
+int factr (int n) {
+  int f ;
+  {
+  if (n < 2) {
+    f = 1 ;
+    }
+  else {
+    f = n * factr (n-1) ;
+  }
+  }
+  return f ;
+} ;
+
 int main () {
   int n ;
   n = 1 ;
   {
-    while (n < 11) printf("%d",fact(n)) ; n = n+1 ;
+    while (n < 11) {
+      printf("%d",fact(n)) ;
+      printf("%d",factr(n)) ; 
+      n = n+1 ;
+    }
   }
   return ;
 } ;