Skip to content

GitLab

Commit 6c63f72a authored by Graham, Aaron's avatar Graham, Aaron
Browse files

Set default value for has_paramType

parent 38d46c10
Pipeline #199036 passed with stage
in 2 minutes and 23 seconds
Hide whitespace changes
Inline Side-by-side
src/ParameterLists.f90
View file @ 6c63f72a
......@@ -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