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
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O0 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -fno-unroll-loops -O1 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O2 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O3 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O0 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme --enzyme-inline=1 -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O1 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme --enzyme-inline=1 -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O2 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme --enzyme-inline=1 -S | %lli -
// RUN: %clang -std=c11 -Xclang -new-struct-path-tbaa -O3 %s -S -emit-llvm -o - | %opt - %OPloadEnzyme %enzyme --enzyme-inline=1 -S | %lli -
#include "../test_utils.h"
double __enzyme_autodiff(void*, ...);
struct {
int count;
void* (*allocfn)(unsigned long);
} tup = {0, malloc};
__attribute__((noinline))
void* metamalloc(unsigned long size) {
void* ret = tup.allocfn(size);
//if (ret != 0)
// tup.count++;
return ret;
}
__attribute__((noinline))
void square(double* x) {
*x *= *x;
}
double alldiv(double x) {
double* mem = (double*)metamalloc(8);
*mem = x;
square(mem);
return mem[0];
}
static void* (*sallocfn)(unsigned long) = malloc;
__attribute__((noinline))
void* smetamalloc(int size) {
return sallocfn(size);
}
double salldiv(double x) {
double* mem = (double*)metamalloc(8);
*mem = x * x;
return mem[0];
}
int main(int argc, char** argv) {
double res = __enzyme_autodiff((void*)alldiv, 3.14);
APPROX_EQ(res, 6.28, 1e-6);
double sres = __enzyme_autodiff((void*)salldiv, 3.14);
APPROX_EQ(sres, 6.28, 1e-6);
return 0;
}