From e267cd83b6728c2285db8d6a2d69584f36e77512 Mon Sep 17 00:00:00 2001
From: "petro.zarytskyi" <petro.zarytskyi@gmail.com>
Date: Wed, 20 Mar 2024 00:11:15 +0200
Subject: [PATCH] Add a test to ensure backward compatibility of gradients with
 array_ref adjoint parameters

---
 test/Gradient/InterfaceCompatibility.c | 33 ++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 test/Gradient/InterfaceCompatibility.c

diff --git a/test/Gradient/InterfaceCompatibility.c b/test/Gradient/InterfaceCompatibility.c
new file mode 100644
index 000000000..b46d0e13d
--- /dev/null
+++ b/test/Gradient/InterfaceCompatibility.c
@@ -0,0 +1,33 @@
+// RUN: %cladnumdiffclang %s  -I%S/../../include -oInterfaceCompatibility.out 2>&1 | FileCheck %s
+// RUN: ./InterfaceCompatibility.out | FileCheck -check-prefix=CHECK-EXEC %s
+// RUN: %cladnumdiffclang -Xclang -plugin-arg-clad -Xclang -enable-tbr %s  -I%S/../../include -oInterfaceCompatibility.out
+// RUN: ./InterfaceCompatibility.out | FileCheck -check-prefix=CHECK-EXEC %s
+
+//CHECK-NOT: {{.*error|warning|note:.*}}
+#include "clad/Differentiator/Differentiator.h"
+#include <cmath>
+
+double f1(double* x, double y) {
+    y = x[1];
+    return y;
+}
+double f2(double x[2], int* y) {
+    return *y * x[0];
+}
+
+int main() {
+    double x[2] = {2, 5}, dx[2] = {0}, dy = 0;
+    clad::array_ref<double> dx_ref(dx, 2);
+    clad::array_ref<double> dy_ref(&dy, 1);
+
+    auto df1 = clad::gradient(f1);
+    df1.execute(x, 5, dx_ref, dy_ref);
+    printf("{%.2f, %.2f, %.2f}\n", dx_ref[0], dx_ref[1], *dy_ref);  // CHECK-EXEC: {0.00, 1.00, 0.00}
+
+    dx_ref[0] = dx_ref[1] = 0;
+    int y[] = {9}, dy2[] = {0};
+    clad::array_ref<int> dy2_ref(dy2, 1);
+    auto df2 = clad::gradient(f2);
+    df2.execute(x, y, dx_ref, dy2_ref);
+    printf("{%.2f, %.2f, %.2f}\n", dx_ref[0], dx_ref[1], (double)*dy2_ref);  // CHECK-EXEC: {9.00, 0.00, 2.00}
+}
\ No newline at end of file