c2hs-0.16.6: tests/bugs/issue-51/Issue51.chs

module Main where

import Foreign.C

#include "issue51.h"

foo :: CInt -> CInt
#ifdef __GNUC__
foo = {#call pure fooGnu#}
#else
foo = {#call pure fooNonGnu#}
#endif

main :: IO ()
main = print $ foo 0