From afec447cde1f97438bbc5bf7a31000e948c721eb Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Fri, 1 Jul 2016 14:29:54 +0200 Subject: testsuite: Add testcase for #12355 Test Plan: Validate Reviewers: austin, osa1 Reviewed By: osa1 Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2377 GHC Trac Issues: #12355 --- testsuite/tests/codeGen/should_compile/T12355.hs | 7 +++++++ testsuite/tests/codeGen/should_compile/all.T | 1 + 2 files changed, 8 insertions(+) create mode 100644 testsuite/tests/codeGen/should_compile/T12355.hs diff --git a/testsuite/tests/codeGen/should_compile/T12355.hs b/testsuite/tests/codeGen/should_compile/T12355.hs new file mode 100644 index 0000000000..9ad9ebea90 --- /dev/null +++ b/testsuite/tests/codeGen/should_compile/T12355.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE GHCForeignImportPrim, UnliftedFFITypes, MagicHash #-} + +module Lib where + +import GHC.Prim + +foreign import prim f1 :: Int# -> Int# diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T index 57ae5eb492..2fac947810 100644 --- a/testsuite/tests/codeGen/should_compile/all.T +++ b/testsuite/tests/codeGen/should_compile/all.T @@ -37,3 +37,4 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')), expect_broken(11261))], compile, ['-g']) test('T12115', normal, compile, ['']) +test('T12355', expect_broken(12355), compile, ['']) -- cgit v1.2.1