From feafa21f95e173c5aa921cb9d1732f5343f69ee7 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 6 Sep 2000 13:30:48 +0000 Subject: [PATCH] [project @ 2000-09-06 13:30:48 by simonmar] add test for typedef-conflict with f.i.d. --- ghc/tests/ccall/should_compile/Makefile | 1 + ghc/tests/ccall/should_compile/cc010.hs | 5 +++++ 2 files changed, 6 insertions(+) create mode 100644 ghc/tests/ccall/should_compile/cc010.hs diff --git a/ghc/tests/ccall/should_compile/Makefile b/ghc/tests/ccall/should_compile/Makefile index c6acaf6..829e80e 100644 --- a/ghc/tests/ccall/should_compile/Makefile +++ b/ghc/tests/ccall/should_compile/Makefile @@ -10,5 +10,6 @@ SRC_HC_OPTS += -dcore-lint -fglasgow-exts cc004_HC_OPTS = -fvia-C cc005_HC_OPTS = -fvia-C cc006_HC_OPTS = -fvia-C -fno-prune-tydecls +cc010_HC_OPTS = -fvia-C include $(TOP)/mk/target.mk diff --git a/ghc/tests/ccall/should_compile/cc010.hs b/ghc/tests/ccall/should_compile/cc010.hs new file mode 100644 index 0000000..ff3ad1c --- /dev/null +++ b/ghc/tests/ccall/should_compile/cc010.hs @@ -0,0 +1,5 @@ +module ShouldCompile where +import Foreign +foreign import dynamic imp :: Addr -> Int +f1 a = imp a + 1 +f2 a = imp a + 2 -- 1.7.10.4