Mercurial > hg > octave-nkf
diff examples/fortdemo.cc @ 6580:d2bb3b8a8d20
[project @ 2007-04-25 22:19:03 by dbateman]
author | dbateman |
---|---|
date | Wed, 25 Apr 2007 22:20:28 +0000 |
parents | 8e7148b84b59 |
children | 4270ded9ddc6 |
line wrap: on
line diff
--- a/examples/fortdemo.cc +++ b/examples/fortdemo.cc @@ -24,7 +24,8 @@ octave_idx_type na = a.nelem (); OCTAVE_LOCAL_BUFFER (char, ctmp, 128); - F77_XFCN (fortsub, FORTSUB, (na, av, ctmp F77_CHAR_ARG_LEN (128))); + F77_XFCN (fortsub, FORTSUB, (na, av, ctmp + F77_CHAR_ARG_LEN (128))); if (f77_exception_encountered) error ("fortdemo: error in fortran");