From 3956a0e5d4211e44a67a4bab20dff2c00ac3488e Mon Sep 17 00:00:00 2001 From: foxtran <39676482+foxtran@users.noreply.github.com> Date: Fri, 1 Nov 2024 11:00:12 +0100 Subject: [PATCH] Fix ICE for ifx 2024.1.0 (#1106) Signed-off-by: Igor S. Gerasimov --- src/constrain_pot.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/constrain_pot.f90 b/src/constrain_pot.f90 index 1ce0cddb8..6cfa4a087 100644 --- a/src/constrain_pot.f90 +++ b/src/constrain_pot.f90 @@ -187,6 +187,7 @@ subroutine constrain_dist(fix,n,at,xyz,g,e) mm = 2*m-1 i = fix%atoms(mm) j = fix%atoms(mm+1) + if (i == j) cycle ! workaround for ifx 2024.1.0 r0= fix%val(m) rij=xyz(:,j)-xyz(:,i) r = norm2(rij)