Mercurial > octave-libgccjit

comparison examples/fortdemo.cc @ 9932:6cb30a539481

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
untabify files in examples directory
author John W. Eaton <jwe@octave.org>
date Mon, 07 Dec 2009 14:53:20 -0500
parents 4295d634797d
children db1f49eaba6b
comparison
equal deleted inserted replaced
9931:fb6b6fcafa62 9932:6cb30a539481
25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128); 25 OCTAVE_LOCAL_BUFFER (char, ctmp, 128);
26 26
27 F77_XFCN (fortsub, FORTSUB, (na, av, ctmp 27 F77_XFCN (fortsub, FORTSUB, (na, av, ctmp
28 F77_CHAR_ARG_LEN (128))); 28 F77_CHAR_ARG_LEN (128)));
29 29
30 retval(1) = std::string (ctmp); 30 retval(1) = std::string (ctmp);
31 retval(0) = a; 31 retval(0) = a;
32 } 32 }
33 } 33 }
34 return retval; 34 return retval;
35 } 35 }