issue with gfortran < 9

the false branch of merge seems to be evaluated which results in a
signaling NaN
This commit is contained in:
Martin Diehl 2020-01-11 12:36:35 +01:00
parent 842666cc20
commit e762cb4dfd
1 changed files with 4 additions and 2 deletions

View File

@ -514,10 +514,12 @@ subroutine unitTest
if(any(dNeq0(q_2%asArray(),1.0e-15_pReal))) call IO_error(401,ext_msg='inverse/conjg')
endif
#if !(defined(__GFORTRAN__) && __GNUC__ < 9)
if (norm2(aimag(q)) > 0.0_pReal) then
if (dNeq0(abs(q-exp(log(q))),1.0e-13_pReal)) call IO_error(401,ext_msg='exp/log')
if (dNeq0(abs(q-log(exp(q))),1.0e-13_pReal)) call IO_error(401,ext_msg='log/exp')
endif
#endif
end subroutine unitTest