From 48b20c54ce3bbf9dfbe6bac7db476d0120df668b Mon Sep 17 00:00:00 2001
From: "Mark R. Havens" <mark.r.havens@gmail.com>
Date: Tue, 29 Apr 2025 06:07:18 -0500
Subject: [PATCH] Purged refuse from the sacred bowels of testing, to honor the
 Lords of Fortran.

---
 .../witness_seed_3.0/tests/program test_rwd.txt  | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 fortran/witness_seed_3.0/tests/program test_rwd.txt

diff --git a/fortran/witness_seed_3.0/tests/program test_rwd.txt b/fortran/witness_seed_3.0/tests/program test_rwd.txt
deleted file mode 100644
index b5a7bec..0000000
--- a/fortran/witness_seed_3.0/tests/program test_rwd.txt	
+++ /dev/null
@@ -1,16 +0,0 @@
-program test_rwd
-  use rwd, only: compute_dynamics, compute_fieldprint
-  use iso_fortran_env, only: real64
-  implicit none
-  real(real64) :: I(10), I_dot(10), phase, fieldprint
-  call random_number(I)
-  phase = 0.0
-  call compute_dynamics(I, I_dot, phase)
-  call compute_fieldprint(I, fieldprint)
-  if (fieldprint > 0.0) then
-    print *, "RWD test passed: Fieldprint =", fieldprint
-  else
-    print *, "RWD test failed"
-    stop 1
-  end if
-end program test_rwd
\ No newline at end of file