Commit 0b7b383c authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Ensure kind type is always emitted correctly for mo_cdi.

* len is default spec for CHARACTER.
parent 8493d1a0
...@@ -264,7 +264,7 @@ def genInterface(cFuncname, returnType, returnPointer, paramList) ...@@ -264,7 +264,7 @@ def genInterface(cFuncname, returnType, returnPointer, paramList)
end end
typeinfo = [value,intent,dimension].select {|s| ! s.nil?}.join(',') typeinfo = [value,intent,dimension].select {|s| ! s.nil?}.join(',')
out << " #{ftype}(#{paramType}), #{typeinfo} :: #{param}\n " out << " #{ftype}(kind=#{paramType}), #{typeinfo} :: #{param}\n "
} }
out << out <<
......
Supports Markdown
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