silences GNU10 compilation warning
only for 'DEFENSIVE'. Does not cause any harm
This commit is contained in:
parent
0a7d4f61ac
commit
c4d0ac71a9
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue