testsuite/tests/codeGen/should_run/T8103.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE MagicHash #-}
module Main where
import T8103_A
import GHC.Exts (isTrue#, (==##))

float_text = if isTrue# ((0.0## `foo` 1.2##) ==## 0.0##)
             then "1"
             else "0"
main = putStrLn (float_text)