fortran_io.ll
1.55 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
; RUN: opt %loadPolly -polly-rewrite-byref-params -S < %s \
; RUN: | FileCheck %s
; Verify that we rewrite the read-only by-reference into a separate alloca slot.
; This is useful in case %j3 is an induction variable, which should be promoted
; by -mem2reg into a register.
; CHECK: define void @foo(%struct.__st_parameter_dt* %p) {
; CHECK-NEXT: entry:
; CHECK-NEXT: %polly_byref_alloca_j3 = alloca i32
; CHECK-NEXT: %j3 = alloca i32, align 4
; CHECK-NEXT: %tmp = bitcast i32* %j3 to i8*
; CHECK-NEXT: br label %bb
; CHECK: bb: ; preds = %entry
; CHECK-NEXT: %polly_byref_load_j3 = load i32, i32* %j3
; CHECK-NEXT: store i32 %polly_byref_load_j3, i32* %polly_byref_alloca_j3
; CHECK-NEXT: %polly_byref_cast_j3 = bitcast i32* %polly_byref_alloca_j3 to i8*
; CHECK-NEXT: call void @_gfortran_transfer_integer_write(%struct.__st_parameter_dt* %p, i8* %polly_byref_cast_j3, i32 4)
; CHECK-NEXT: ret void
; CHECK-NEXT: }
target datalayout = "e-p:64:64:64-S128-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f16:16:16-f32:32:32-f64:64:64-f128:128:128-v64:64:64-v128:128:128-a0:0:64-s0:64:64-f80:128:128-n8:16:32:64"
target triple = "x86_64-unknown-linux-gnu"
%struct.__st_parameter_dt = type { }
declare void @_gfortran_transfer_integer_write(%struct.__st_parameter_dt*, i8*, i32)
define void @foo(%struct.__st_parameter_dt* %p) {
entry:
%j3 = alloca i32, align 4
%tmp = bitcast i32* %j3 to i8*
br label %bb
bb:
call void @_gfortran_transfer_integer_write(%struct.__st_parameter_dt* %p, i8* %tmp, i32 4)
ret void
}