ghc/tests/ccall/should_run/ffi001.stdout

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 -- !!! A simple FFI test
   4 -- This one provoked a bogus renamer error in 4.08.1:
   5 --
   6 module Main where
   7
   8 import Foreign
   9
  10 foreign export ccall "gccd" mygcd :: Int -> Int -> Int
  11
  12 main = putStrLn "No bug"
  13
  14 mygcd a b = if (a==b) then a
  15             else if (a<b) then mygcd a (b-a)
  16             else mygcd (a-b) a