From c4d0ac71a999c8d10220f3748d84f35505fd6936 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 20 Sep 2020 17:15:39 +0200
Subject: [PATCH] silences GNU10 compilation warning

only for 'DEFENSIVE'. Does not cause any harm
---
 src/rotations.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rotations.f90 b/src/rotations.f90
index 72046a965..04490fe3c 100644
--- a/src/rotations.f90
+++ b/src/rotations.f90
@@ -1452,7 +1452,7 @@ subroutine selfTest
 
   contains
 
-  function quaternion_equal(qu1,qu2) result(ok)
+  pure recursive function quaternion_equal(qu1,qu2) result(ok)
 
     real(pReal), intent(in), dimension(4) :: qu1,qu2
     logical :: ok