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
Loading
Loading
Loading
Loading
Loading
+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!')