Removed optional from ierr declaration. This was needed to get the string
length parameter to come out correctly (for C interfaces with char*). This commit was SVN r3804.
Этот коммит содержится в:
родитель
be7d989b0e
Коммит
d499ffdbc9
@ -119,7 +119,7 @@ do
|
||||
|
||||
<xsl:for-each select="return[1]">
|
||||
<xsl:if test="@name = 'ierr'">
|
||||
<xsl:text> echo " integer, intent(out), optional :: ierr"</xsl:text>
|
||||
<xsl:text> echo " integer, intent(out) :: ierr"</xsl:text>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
|
@ -122,7 +122,7 @@
|
||||
|
||||
<xsl:for-each select="return[1]">
|
||||
<xsl:if test="@name = 'ierr'">
|
||||
<xsl:text>echo " integer, intent(out), optional :: ierr"</xsl:text>
|
||||
<xsl:text>echo " integer, intent(out) :: ierr"</xsl:text>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
@ -169,7 +169,7 @@ do
|
||||
|
||||
<xsl:for-each select="return[1]">
|
||||
<xsl:if test="@name = 'ierr'">
|
||||
<xsl:text> echo " integer, intent(out), optional :: ierr"</xsl:text>
|
||||
<xsl:text> echo " integer, intent(out) :: ierr"</xsl:text>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
<xsl:value-of select="$nl"/>
|
||||
|
@ -134,7 +134,7 @@
|
||||
|
||||
<xsl:for-each select="return[1]">
|
||||
<xsl:if test="@name = 'ierr'">
|
||||
<xsl:text>echo " integer, intent(out), optional :: ierr"</xsl:text>
|
||||
<xsl:text>echo " integer, intent(out) :: ierr"</xsl:text>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
@ -181,7 +181,7 @@ do
|
||||
|
||||
<xsl:for-each select="return[1]">
|
||||
<xsl:if test="@name = 'ierr'">
|
||||
<xsl:text> echo " integer, intent(out), optional :: ierr"</xsl:text>
|
||||
<xsl:text> echo " integer, intent(out) :: ierr"</xsl:text>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user