testsuite/tests/codeGen/should_run/T21186.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

import Data.Int

f :: Int32 -> String
f (-5) = "hello"
f (-4) = "world"
f (-3) = "figs"
f (-2) = "sparkle"
f (-1) = "ficus"
f (0) = "wombat"
f (1) = "turtle"
{-# NOINLINE f #-}

main = putStrLn (f (-5))