URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [getarg_1.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Check that getarg does somethig sensible.`	`! Check that getarg does somethig sensible.`
`program getarg_1`	`program getarg_1`
`CHARACTER*10 ARGS, ARGS2`	`CHARACTER*10 ARGS, ARGS2`
`INTEGER*4 I`	`INTEGER*4 I`
`INTEGER*2 I2`	`INTEGER*2 I2`
`I = 0`	`I = 0`
`CALL GETARG(I,ARGS)`	`CALL GETARG(I,ARGS)`
`! This should return the invoking command. The actual value depends`	`! This should return the invoking command. The actual value depends`
`! on the OS, but a blank string is wrong no matter what.`	`! on the OS, but a blank string is wrong no matter what.`
`! ??? What about deep embedded systems?`	`! ??? What about deep embedded systems?`

`I2 = 0`	`I2 = 0`
`CALL GETARG(I2,ARGS2)`	`CALL GETARG(I2,ARGS2)`
`if (args2.ne.args) call abort`	`if (args2.ne.args) call abort`

`if (args.eq.'') call abort`	`if (args.eq.'') call abort`
`I = 1`	`I = 1`
`CALL GETARG(I,ARGS)`	`CALL GETARG(I,ARGS)`
`if (args.ne.'') call abort`	`if (args.ne.'') call abort`
`I = -1`	`I = -1`
`CALL GETARG(I,ARGS)`	`CALL GETARG(I,ARGS)`
`if (args.ne.'') call abort`	`if (args.ne.'') call abort`
`! Assume we won't have been called with more that 4 args.`	`! Assume we won't have been called with more that 4 args.`
`I = 4`	`I = 4`
`CALL GETARG(I,ARGS)`	`CALL GETARG(I,ARGS)`
`if (args.ne.'') call abort`	`if (args.ne.'') call abort`
`I = 1000`	`I = 1000`
`CALL GETARG(I,ARGS)`	`CALL GETARG(I,ARGS)`
`if (args.ne.'') call abort`	`if (args.ne.'') call abort`
`end`	`end`