Commit 75911d92 authored by Collins, Benjamin's avatar Collins, Benjamin
Browse files

Merge branch 'hotfix_pl_has' into 'master' 

Set default value for has_paramType

See merge request futility/Futility!370
parents 38d46c10 6c63f72a

src/ParameterLists.f90

+1 −0
Original line number Diff line number Diff line
@@ -3457,6 +3457,7 @@ FUNCTION has_ParamType(thisParam,name) RESULT(hasname) 
  TYPE(ParamType) :: listContainer

  CLASS(ParamType),POINTER :: tmpParam => NULL()













  hasname=.FALSE.















  CALL get_hash_list(name,hashes)















  IF(ANY(hashes == 0)) THEN















    CALL eParams%raiseError(modName//'::'//myName//' - cannot search for a blank name!')