Fix for report #67958: Fortran's open call should open explicitly for read-only
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 14 Jul 2010 15:23:51 +0000 (15:23 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 14 Jul 2010 15:23:51 +0000 (15:23 +0000)
LHAPDF/lhapdf5.5.1/src/LHpdflib.f

index 52c031e..4ce9165 100644 (file)
@@ -103,7 +103,7 @@ subroutine InitPDFsetM(nset,setpath)
   endif
   
   call setnset(nset)
-  open(unit=1,file=setpath,status='old')
+  open(unit=1,file=setpath,status='old',action='read')
   read(1,*) s1,s2
   if ((    index(s2,'1.0').ne.1) &
      .and.(index(s2,'1.1').ne.1) &