Skip to content
Snippets Groups Projects
Commit 6cd66ebb authored by Thomas Jahns's avatar Thomas Jahns :cartwheel: Committed by Sergey Kosukhin
Browse files

Expand f2003 interface generator to cover partially specified array dimensions.

parent f0083239
No related branches found
No related tags found
No related merge requests found
......@@ -377,6 +377,16 @@ $argumentTemplates =
:callExpression => '<name>_dummy',
:passAs => 'integer(c_<type>), intent(in) :: <name>_dummy(<lineSize>, <lineCount>)',
:postcallStatements => ""
}, { #const <integerTypes> <name>[][<lineSize>]
:regex => '^\s*const\s+(?<type><integerTypes>)\s+(?<name>\w+)\s*\[\s*\]\s*\[\s*(?<lineSize>[^\]]+)\s*\]\s*$',
:placeholders => %w[name type lineSize],
:dummyName => '<name>_dummy',
:acceptAs => 'integer(c_<type>), intent(in) :: <name>_dummy(<lineSize>, *)',
:helperVars => "",
:precallStatements => "",
:callExpression => '<name>_dummy',
:passAs => 'integer(c_<type>), intent(in) :: <name>_dummy(<lineSize>, *)',
:postcallStatements => ""
},
#Non-optional pointer arguments. These match both pointers and
#arrays, so they must appear after the more special array templates.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment