silences GNU10 compilation warning

only for 'DEFENSIVE'. Does not cause any harm
This commit is contained in:
Martin Diehl 2020-09-20 17:15:39 +02:00
parent 0a7d4f61ac
commit c4d0ac71a9
1 changed files with 1 additions and 1 deletions

View File

@ -1452,7 +1452,7 @@ subroutine selfTest
contains 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 real(pReal), intent(in), dimension(4) :: qu1,qu2
logical :: ok logical :: ok