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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
; ModuleID = 'LFortran'
source_filename = "LFortran"
%complex_8 = type <{ double, double }>
%complex_4 = type <{ float, float }>
%string_descriptor = type <{ i8*, i64 }>
@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
@serialization_info = private unnamed_addr constant [24 x i8] c"{R8,R8},{R4,R4},{R4,R4}\00", align 1
@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
define i32 @main(i32 %0, i8** %1) {
.entry:
call void @_lpython_call_initial_functions(i32 %0, i8** %1)
%v = alloca %complex_8, align 8
%x = alloca %complex_4, align 8
%zero = alloca %complex_4, align 8
%2 = alloca %complex_4, align 8
%3 = getelementptr %complex_4, %complex_4* %2, i32 0, i32 0
%4 = getelementptr %complex_4, %complex_4* %2, i32 0, i32 1
store float 0.000000e+00, float* %3, align 4
store float 0.000000e+00, float* %4, align 4
%5 = load %complex_4, %complex_4* %2, align 1
store %complex_4 %5, %complex_4* %zero, align 1
%6 = alloca %complex_8, align 8
%7 = getelementptr %complex_8, %complex_8* %6, i32 0, i32 0
%8 = getelementptr %complex_8, %complex_8* %6, i32 0, i32 1
store double 0x3FF0CCCCC0000000, double* %7, align 8
store double 0x3FF0CCCCC0000000, double* %8, align 8
%9 = load %complex_8, %complex_8* %6, align 1
store %complex_8 %9, %complex_8* %v, align 1
%10 = alloca %complex_4, align 8
%11 = getelementptr %complex_4, %complex_4* %10, i32 0, i32 0
%12 = getelementptr %complex_4, %complex_4* %10, i32 0, i32 1
store float 0x3FF0CCCCC0000000, float* %11, align 4
store float 0x3FF0CCCCC0000000, float* %12, align 4
%13 = load %complex_4, %complex_4* %10, align 1
store %complex_4 %13, %complex_4* %x, align 1
%14 = alloca i64, align 8
%15 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([24 x i8], [24 x i8]* @serialization_info, i32 0, i32 0), i64* %14, i32 0, i32 0, %complex_8* %v, %complex_4* %x, %complex_4* %zero)
%16 = load i64, i64* %14, align 4
%stringFormat_desc = alloca %string_descriptor, align 8
%17 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
store i8* %15, i8** %17, align 8
%18 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
store i64 %16, i64* %18, align 4
%19 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
%20 = load i8*, i8** %19, align 8
%21 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
%22 = load i64, i64* %21, align 4
%23 = trunc i64 %22 to i32
call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %20, i32 %23, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
call void @_lfortran_free(i8* %15)
call void @_lpython_free_argv()
br label %return
return: ; preds = %.entry
ret i32 0
}
declare void @_lpython_call_initial_functions(i32, i8**)
declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
declare void @_lfortran_free(i8*)
declare void @_lpython_free_argv()
|
