#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, ...);
void print4d(int dim1, int dim2, int dim3, int dim4, double *a) {
  for (int i = 0; i < dim1; i++)
    for (int j = 0; j < dim2; j++)
      for (int k = 0; k < dim3; k++)
        for (int l = 0; l < dim4; l++) {
          printf("[%2d,%2d,%2d,%2d] = ", i, j, k, l);
          printf("%20.14lf ",
                 a[i * dim2 * dim3 * dim4 + j * dim3 * dim4 + k * dim4 + l]);
          printf("\n");
        }
  return;
}


x86 assembly (clang, -O0):
<print4d>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %ecx,-0x10(%rbp)
mov    %r8,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1226 <print4d+0x116>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1213 <print4d+0x103>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1200 <print4d+0xf0>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11ed <print4d+0xdd>
mov    -0x1c(%rbp),%esi
mov    -0x20(%rbp),%edx
mov    -0x24(%rbp),%ecx
mov    -0x28(%rbp),%r8d
lea    0xe78(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x18(%rbp),%rax
mov    -0x1c(%rbp),%ecx
imul   -0x8(%rbp),%ecx
imul   -0xc(%rbp),%ecx
imul   -0x10(%rbp),%ecx
mov    -0x20(%rbp),%edx
imul   -0xc(%rbp),%edx
imul   -0x10(%rbp),%edx
add    %edx,%ecx
mov    -0x24(%rbp),%edx
imul   -0x10(%rbp),%edx
add    %edx,%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
lea    0xe4b(%rip),%rdi
mov    $0x1,%al
call   1030 <printf@plt>
lea    0xe47(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1168 <print4d+0x58>
jmp    11f2 <print4d+0xe2>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1155 <print4d+0x45>
jmp    1205 <print4d+0xf5>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1142 <print4d+0x32>
jmp    1218 <print4d+0x108>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112f <print4d+0x1f>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<print4d>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    %r8,0x30(%rsp)
mov    %edx,0x18(%rsp)
mov    %esi,0x10(%rsp)
mov    %edi,0x24(%rsp)
test   %edi,%edi
jle    1253 <print4d+0x133>
mov    0x18(%rsp),%eax
mov    %eax,%edx
mov    %rdx,0x38(%rsp)
mov    %ecx,%r14d
mov    %ecx,%edx
imul   %eax,%edx
mov    %edx,0x28(%rsp)
imul   0x10(%rsp),%edx
mov    %edx,0x20(%rsp)
lea    0xe92(%rip),%rbx
movl   $0x0,0xc(%rsp)
xor    %r15d,%r15d
mov    %ecx,0x2c(%rsp)
jmp    119b <print4d+0x7b>
nop
add    $0x1,%r15d
mov    0xc(%rsp),%eax
add    0x20(%rsp),%eax
mov    %eax,0xc(%rsp)
cmp    0x24(%rsp),%r15d
je     1253 <print4d+0x133>
cmpl   $0x0,0x10(%rsp)
jle    1180 <print4d+0x60>
xor    %r13d,%r13d
mov    0xc(%rsp),%eax
mov    %eax,0x14(%rsp)
jmp    11c7 <print4d+0xa7>
nop
add    $0x1,%r13d
mov    0x14(%rsp),%eax
add    0x28(%rsp),%eax
mov    %eax,0x14(%rsp)
cmp    0x10(%rsp),%r13d
je     1180 <print4d+0x60>
cmpl   $0x0,0x18(%rsp)
jle    11b0 <print4d+0x90>
mov    0x14(%rsp),%eax
mov    %eax,0x1c(%rsp)
xor    %r12d,%r12d
jmp    11f3 <print4d+0xd3>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r12
mov    0x2c(%rsp),%ecx
add    %ecx,0x1c(%rsp)
cmp    0x38(%rsp),%r12
je     11b0 <print4d+0x90>
test   %ecx,%ecx
jle    11e0 <print4d+0xc0>
movslq 0x1c(%rsp),%rax
mov    0x30(%rsp),%rcx
lea    (%rcx,%rax,8),%rax
mov    %rax,0x40(%rsp)
xor    %ebp,%ebp
nopl   0x0(%rax)
mov    %rbx,%rdi
mov    %r15d,%esi
mov    %r13d,%edx
mov    %r12d,%ecx
mov    %ebp,%r8d
xor    %eax,%eax
call   1040 <printf@plt>
mov    0x40(%rsp),%rax
movsd  (%rax,%rbp,8),%xmm0
lea    0xdde(%rip),%rdi
mov    $0x1,%al
call   1040 <printf@plt>
mov    $0xa,%edi
call   1030 <putchar@plt>
add    $0x1,%rbp
cmp    %rbp,%r14
jne    1210 <print4d+0xf0>
jmp    11e0 <print4d+0xc0>
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [21 x i8] c"[%2d,%2d,%2d,%2d] = \00"
@.str.1 = [10 x i8] c"%20.14lf \00"
@.str.2 = [2 x i8] c"\0A\00"
define void @print4d(i32 %0, i32 %1, i32 %2, i32 %3, double* %4) {
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
store i32 %0, i32* %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store i32 %3, i32* %9
store double* %4, double** %10
store i32 0, i32* %11
br label %15
15: ; preds = %77, %5
%16 = load i32, i32* %11
%17 = load i32, i32* %6
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %80
19: ; preds = %15
store i32 0, i32* %12
br label %20
20: ; preds = %73, %19
%21 = load i32, i32* %12
%22 = load i32, i32* %7
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %76
24: ; preds = %20
store i32 0, i32* %13
br label %25
25: ; preds = %69, %24
%26 = load i32, i32* %13
%27 = load i32, i32* %8
%28 = icmp slt i32 %26, %27
br i1 %28, label %29, label %72
29: ; preds = %25
store i32 0, i32* %14
br label %30
30: ; preds = %65, %29
%31 = load i32, i32* %14
%32 = load i32, i32* %9
%33 = icmp slt i32 %31, %32
br i1 %33, label %34, label %68
34: ; preds = %30
%35 = load i32, i32* %11
%36 = load i32, i32* %12
%37 = load i32, i32* %13
%38 = load i32, i32* %14
%39 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str, i64 0, i64 0), i32 %35, i32 %36, i32 %37, i32 %38)
%40 = load double*, double** %10
%41 = load i32, i32* %11
%42 = load i32, i32* %7
%43 = mul nsw i32 %41, %42
%44 = load i32, i32* %8
%45 = mul nsw i32 %43, %44
%46 = load i32, i32* %9
%47 = mul nsw i32 %45, %46
%48 = load i32, i32* %12
%49 = load i32, i32* %8
%50 = mul nsw i32 %48, %49
%51 = load i32, i32* %9
%52 = mul nsw i32 %50, %51
%53 = add nsw i32 %47, %52
%54 = load i32, i32* %13
%55 = load i32, i32* %9
%56 = mul nsw i32 %54, %55
%57 = add nsw i32 %53, %56
%58 = load i32, i32* %14
%59 = add nsw i32 %57, %58
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double, double* %40, i64 %60
%62 = load double, double* %61
%63 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.1, i64 0, i64 0), double %62)
%64 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.2, i64 0, i64 0))
br label %65
65: ; preds = %34
%66 = load i32, i32* %14
%67 = add nsw i32 %66, 1
store i32 %67, i32* %14
br label %30
68: ; preds = %30
br label %69
69: ; preds = %68
%70 = load i32, i32* %13
%71 = add nsw i32 %70, 1
store i32 %71, i32* %13
br label %25
72: ; preds = %25
br label %73
73: ; preds = %72
%74 = load i32, i32* %12
%75 = add nsw i32 %74, 1
store i32 %75, i32* %12
br label %20
76: ; preds = %20
br label %77
77: ; preds = %76
%78 = load i32, i32* %11
%79 = add nsw i32 %78, 1
store i32 %79, i32* %11
br label %15
80: ; preds = %15
ret void
}

LLVM IR (-O2):
@.str = [21 x i8] c"[%2d,%2d,%2d,%2d] = \00"
@.str.1 = [10 x i8] c"%20.14lf \00"
define void @print4d(i32 %0, i32 %1, i32 %2, i32 %3, double* nocapture %4) {
%6 = icmp sgt i32 %0, 0
br i1 %6, label %7, label %17
7: ; preds = %5
%8 = icmp sgt i32 %1, 0
%9 = icmp sgt i32 %2, 0
%10 = icmp sgt i32 %3, 0
%11 = zext i32 %2 to i64
%12 = zext i32 %3 to i64
br label %13
13: ; preds = %7, %23
%14 = phi i32 [ 0, %7 ], [ %24, %23 ]
br i1 %8, label %15, label %23
15: ; preds = %13
%16 = mul nsw i32 %14, %1
br label %18
17: ; preds = %23, %5
ret void
18: ; preds = %15, %33
%19 = phi i32 [ 0, %15 ], [ %34, %33 ]
br i1 %9, label %20, label %33
20: ; preds = %18
%21 = add i32 %19, %16
%22 = mul i32 %21, %2
br label %26
23: ; preds = %33, %13
%24 = add nuw nsw i32 %14, 1
%25 = icmp eq i32 %24, %0
br i1 %25, label %17, label %13
26: ; preds = %20, %36
%27 = phi i64 [ 0, %20 ], [ %37, %36 ]
br i1 %10, label %28, label %36
28: ; preds = %26
%29 = trunc i64 %27 to i32
%30 = add i32 %22, %29
%31 = mul i32 %30, %3
%32 = sext i32 %31 to i64
br label %39
33: ; preds = %36, %18
%34 = add nuw nsw i32 %19, 1
%35 = icmp eq i32 %34, %1
br i1 %35, label %23, label %18
36: ; preds = %39, %26
%37 = add nuw nsw i64 %27, 1
%38 = icmp eq i64 %37, %11
br i1 %38, label %33, label %26
39: ; preds = %28, %39
%40 = phi i64 [ 0, %28 ], [ %48, %39 ]
%41 = trunc i64 %40 to i32
%42 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([21 x i8], [21 x i8]* @.str, i64 0, i64 0), i32 %14, i32 %19, i32 %29, i32 %41)
%43 = add nsw i64 %40, %32
%44 = getelementptr inbounds double, double* %4, i64 %43
%45 = load double, double* %44
%46 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([10 x i8], [10 x i8]* @.str.1, i64 0, i64 0), double %45)
%47 = tail call i32 @putchar(i32 10)
%48 = add nuw nsw i64 %40, 1
%49 = icmp eq i64 %48, %12
br i1 %49, label %36, label %39
}