diff --git a/NuclearData/mgNeutronData/mgNeutronMaterial_inter.f90 b/NuclearData/mgNeutronData/mgNeutronMaterial_inter.f90 index c0c0b821..daa90c37 100644 --- a/NuclearData/mgNeutronData/mgNeutronMaterial_inter.f90 +++ b/NuclearData/mgNeutronData/mgNeutronMaterial_inter.f90 @@ -116,7 +116,7 @@ subroutine getMacroXSs_byP(self, xss, p) if (.not. p % isMG) call fatalError(Here, 'CE particle was given to MG data') - ! Make compiler happy + ! Store p % matIdx() in a dedicated variable to avoid compilation errors with gfortran >= 13.2 matIdx = p % matIdx() associate (matCache => cache_materialCache(matIdx))