Mercurial > octave

changeset 32802:2c9723b02921 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc: Fix typo in Fortran example code. * examples/code/fortrandemo.cc: Use same Fortran function name in lower-case and in upper-case version for arguments of F77_FUNC.
author Markus Mützel <markus.muetzel@gmx.de>
date Mon, 22 Jan 2024 10:38:21 +0100
parents 9d4dfa069f98
children 9af92adc800e 2719953fd55b
files examples/code/fortrandemo.cc
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/examples/code/fortrandemo.cc	Sun Jan 24 02:34:09 2021 +1100
+++ b/examples/code/fortrandemo.cc	Mon Jan 22 10:38:21 2024 +0100
@@ -4,7 +4,7 @@
 extern "C"
 {
   F77_RET_T
-  F77_FUNC (fortransub, FORTSUB)
+  F77_FUNC (fortransub, FORTRANSUB)
     (const F77_INT&, F77_DBLE*, F77_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL);
 }
 
@@ -20,7 +20,7 @@
 
   OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
 
-  F77_XFCN (fortransub, FORTSUB,
+  F77_XFCN (fortransub, FORTRANSUB,
             (na, av, ctmp F77_CHAR_ARG_LEN (128)));
 
   return ovl (a, std::string (ctmp));