From 60b0241c1fb7e7c0b73405a7bf84b0a34370c1ed Mon Sep 17 00:00:00 2001 From: Alexandr Fonari Date: Mon, 26 Jan 2026 14:30:14 -0500 Subject: [PATCH] Prevent out of boundaries access in packmol.f90 While reading input options. --- app/packmol.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/app/packmol.f90 b/app/packmol.f90 index e1efb02..badbd67 100644 --- a/app/packmol.f90 +++ b/app/packmol.f90 @@ -418,6 +418,7 @@ program packmol end if ival = 2 do + if (ival > maxkeywords) exit read(keyword(iline_atoms,ival),*,iostat=ioerr) iat if ( ioerr /= 0 ) exit if ( iat > natoms(itype) ) then @@ -440,6 +441,7 @@ program packmol end if ival = 2 do + if (ival > maxkeywords) exit read(keyword(iline_atoms,ival),*,iostat=ioerr) iat if ( ioerr /= 0 ) exit if ( iat > natoms(itype) ) then @@ -462,6 +464,7 @@ program packmol end if ival = 2 do + if (ival > maxkeywords) exit read(keyword(iline_atoms,ival),*,iostat=ioerr) iat if ( ioerr /= 0 ) exit if ( iat > natoms(itype) ) then @@ -485,6 +488,7 @@ program packmol end if ival = 2 do + if (ival > maxkeywords) exit read(keyword(iline_atoms,ival),*,iostat=ioerr) iat if ( ioerr /= 0 ) exit if ( iat > natoms(itype) ) then