1
1

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.
Этот коммит содержится в:
Craig E Rasmussen 2004-12-14 05:41:42 +00:00
родитель be7d989b0e
Коммит d499ffdbc9
3 изменённых файлов: 5 добавлений и 5 удалений

Просмотреть файл

@ -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>