diff --git a/src/math.f90 b/src/math.f90
index bc8170a5a..8db0508ea 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -15,7 +15,7 @@ module math
  real(pReal),    parameter, public :: PI = acos(-1.0_pReal)                                         !< ratio of a circle's circumference to its diameter
  real(pReal),    parameter, public :: INDEG = 180.0_pReal/PI                                        !< conversion from radian into degree
  real(pReal),    parameter, public :: INRAD = PI/180.0_pReal                                        !< conversion from degree into radian
- complex(pReal), parameter, public :: TWOPIIMG = (0.0_pReal,2.0_pReal)*(PI,0.0_pReal)               !< Re(0.0), Im(2xPi)
+ complex(pReal), parameter, public :: TWOPIIMG = cmplx(0.0_pReal,2.0_pReal*PI)                      !< Re(0.0), Im(2xPi)
 
  real(pReal), dimension(3,3), parameter, public :: &
    MATH_I3 = reshape([&