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
Pipeline #199039 passed with stage
in 2 minutes and 10 seconds
......@@ -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!')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment