Commit 499052f

committed

add else clause to cover all branches

1 parent c0ce8dc commit 499052fCopy full SHA for 499052f

File tree

-0

lines changed

-0

lines changed

Lines changed: 4 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`#:set CI_KINDS_TYPES = INT_KINDS_TYPES + C_KINDS_TYPES`
`5`	`5`	`module stdlib_specialfunctions_gamma`
`6`	`6`	`use iso_fortran_env, only : qp => real128`
	`7`	`+ use ieee_arithmetic, only: ieee_value, ieee_quiet_nan`
`7`	`8`	`use stdlib_kinds, only : sp, dp, int8, int16, int32, int64`
`8`	`9`	`use stdlib_error, only : error_stop`
`9`	`10`
`@@ -671,6 +672,9 @@ contains`
`671`	`672`
`672`	`673`	`end do`
`673`	`674`
	`675`	`+ else`
	`676`	`+ g = ieee_value(1._${k1},ドル ieee_quiet_nan)`
	`677`	`+`
`674`	`678`	`end if`
`675`	`679`
`676`	`680`	`res = g`

Comments

(0)