232f180695
* tests/arrayidx.prg
* tests/brwpos.prg
* tests/clasinit.prg
* tests/clsicast.prg
* tests/clsscast.prg
* tests/clsscope.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/cpinfo.prg
* tests/db_brows.prg
* tests/destruct.prg
* tests/dynobj.prg
* tests/flink.prg
* tests/fortest.prg
* tests/fsplit.prg
* tests/inherit.prg
* tests/keywords.prg
* tests/multiarg.prg
* tests/newrdd.prg
* tests/onidle.prg
* tests/overload.prg
* tests/rto_get.prg
* tests/setkeys.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/tb1.prg
* tests/testbrw.prg
* tests/testdbf.prg
* tests/testhtml.prg
* tests/testwarn.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/wvtext.prg
* more cleanups
28 lines
484 B
Plaintext
28 lines
484 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing of multiple arguments
|
|
//
|
|
// Written by Eddie Runia <eddie@runia.com>
|
|
// www - http://harbour-project.org
|
|
//
|
|
// Placed in the public domain
|
|
//
|
|
|
|
PROCEDURE Main()
|
|
|
|
ShoutArg( 1, "1", 2.5, .T. )
|
|
ShoutArg( 2, "1", 2.5, .T. )
|
|
ShoutArg( 3, "1", 2.5, .T. )
|
|
ShoutArg( 4, "1", 2.5, .T. )
|
|
ShoutArg( 5, "1", 2.5, .T. )
|
|
|
|
RETURN
|
|
|
|
FUNCTION ShoutArg( nArg, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10 )
|
|
|
|
QOut( nArg, "==", hb_PValue( nArg ) )
|
|
|
|
RETURN nil
|