URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [getarg_1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! Check that getarg does somethig sensible.`	`! Check that getarg does somethig sensible.`
`program getarg_1`	`program getarg_1`
`CHARACTER*10 ARGS`	`CHARACTER*10 ARGS`
`INTEGER*4 I`	`INTEGER*4 I`
`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?`
`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`