tmcdonell

import Prelude                                  as P
import Data.Array.Accelerate                    as A
import Data.Array.Accelerate.CUDA               as C
import Data.Array.Accelerate.Interpreter        as I

import Data.Array.Accelerate.Array.Sugar


input :: Acc (Vector Int32)
input =  use $ fromList (Z :. 59) [3214586,-22955798,24117958,-20242782,-18004116,3985569,1024273,-32729186,-30502029,-5017248,3166066,4277396,4405509,19375005,24465845,21106830,-16052075,13200861,-27493632,17784659,4138004,16501551,25998396,2146684,13413209,-25369899,-25241634,-14754912,-28861012,-10508167,21070625,-29990464,16694578,-24171913,-2266914,-18248338,-24717578,18032912,-11713204,-3853636,25922588,-26181472,4306350,14492894,22005937,1681278,-27479141,29397304,19498557,-16341281,-26789977,-30407265,-7861545,10902053,31949840,27671411,30285084,3983719,11323650]

tmcdonell

import Control.Monad.Error

import LLVM.General.Context
import LLVM.General.Module
import LLVM.General.Target
import LLVM.General.Target.Options
import LLVM.General.PassManager
import LLVM.General.Transforms
import LLVM.General.Diagnostic
import LLVM.General.CommandLine

tmcdonell

; ModuleID = 'dotp.ll'
target datalayout = "e-p:64:64:64-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-v64:64:64-v128:128:128-a0:0:64-s0:64:64-f80:128:128-n8:16:32:64-S128"
target triple = "x86_64-apple-macosx10.9.0"

; Function Attrs: nounwind readonly ssp uwtable
define double @dotp(double* noalias nocapture readonly %xs, double* noalias nocapture readonly %ys, i32 %n) #0 {
entry:
  %cmp5 = icmp sgt i32 %n, 0
  br i1 %cmp5, label %for.body, label %for.end

tmcdonell

import Prelude                           as P
import Data.Array.Accelerate             as A
import Similar

import Data.Array.Accelerate.CUDA        as C
import Data.Array.Accelerate.Interpreter as I


main :: IO ()
main = do