c2hs-0.28.2: tests/bugs/issue-180/Issue180.chs

module Main where

#include "issue180.h"

marshalIn = undefined

{#fun pure test as test1
  { 'marshalIn'* `Int'&} -> `()' #}

main :: IO ()
main = do
  test
  print "OK"