From c181ac34caf4aa4f7b04824d77e25185d4589242 Mon Sep 17 00:00:00 2001 From: Joe Wallwork Date: Thu, 2 Jul 2026 15:18:17 +0100 Subject: [PATCH] Add variant of square test with activity descriptor --- .../Fortran/ReverseMode/square_with_bindings.f90 | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/enzyme/test/Fortran/ReverseMode/square_with_bindings.f90 b/enzyme/test/Fortran/ReverseMode/square_with_bindings.f90 index 87e17180b6d..541a36112ab 100644 --- a/enzyme/test/Fortran/ReverseMode/square_with_bindings.f90 +++ b/enzyme/test/Fortran/ReverseMode/square_with_bindings.f90 @@ -9,16 +9,22 @@ ! handle the indirection involved in the enzyme_autodiff binding program app - use enzyme, only: enzyme_autodiff + use enzyme, only: enzyme_dup, enzyme_autodiff implicit none real :: x, dx + ! Test without an activity descriptor x = 3 print *, square(x) - dx = 0 call enzyme_autodiff(square, x, dx) + print *, dx + ! Test with an activity descriptor + x = 4 + print *, square(x) + dx = 0 + call enzyme_autodiff(square, enzyme_dup, x, dx) print *, dx contains @@ -32,3 +38,5 @@ end program app ! CHECK: 9 ! CHECK-NEXT: 6 +! CHECK-NEXT: 16 +! CHECK-NEXT: 8