Skip to content

Commit

Permalink
Fix out-of-bounds in trunc_CS_poly_n20
Browse files Browse the repository at this point in the history
  • Loading branch information
oschuett committed Jul 7, 2020
1 parent 45a9cda commit 360090b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/common/t_sh_p_s_c.F
Original file line number Diff line number Diff line change
Expand Up @@ -1080,7 +1080,7 @@ SUBROUTINE trunc_CS_poly_n20(RES, R, T, NDERIV)
ENDIF
ENDIF
ELSE
DO i = 0, NDERIV
DO i = 1, NDERIV + 1
RES(i) = 0.0_dp
END DO
END IF
Expand Down

0 comments on commit 360090b

Please sign in to comment.