Skip to content
Snippets Groups Projects
Commit c85e7e67 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 439c4ef7
No related branches found
No related tags found
1 merge request!11Consolidation with CDI-PIO (1.8.x)
......@@ -357,6 +357,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