Skip to content

Commit 1d92448

Browse files
committed
fix typo: z_limit is real
1 parent e3ee922 commit 1d92448

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_specialfunctions_gamma.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -424,7 +424,7 @@ contains
424424
real(${k1}$) :: d
425425
integer :: m, i
426426
complex(${k2}$) :: zr, zr2, sum, s
427-
real(${k1}$), parameter :: z_limit = 10_${k1}$, zero_k1 = 0.0_${k1}$
427+
real(${k1}$), parameter :: z_limit = 10.0_${k1}$, zero_k1 = 0.0_${k1}$
428428
integer, parameter :: n = 20
429429
${t2}$, parameter :: zero = 0.0_${k2}$, one = 1.0_${k2}$, &
430430
pi = acos(-one), ln2pi = log(2 * pi)

0 commit comments

Comments
 (0)