1! Check that getarg does somethig sensible. 2program getarg_1 3 CHARACTER*10 ARGS, ARGS2 4 INTEGER*4 I 5 INTEGER*2 I2 6 I = 0 7 CALL GETARG(I,ARGS) 8 ! This should return the invoking command. The actual value depends 9 ! on the OS, but a blank string is wrong no matter what. 10 ! ??? What about deep embedded systems? 11 12 I2 = 0 13 CALL GETARG(I2,ARGS2) 14 if (args2.ne.args) STOP 1 15 16 if (args.eq.'') STOP 2 17 I = 1 18 CALL GETARG(I,ARGS) 19 if (args.ne.'') STOP 3 20 I = -1 21 CALL GETARG(I,ARGS) 22 if (args.ne.'') STOP 4 23 ! Assume we won't have been called with more that 4 args. 24 I = 4 25 CALL GETARG(I,ARGS) 26 if (args.ne.'') STOP 5 27 I = 1000 28 CALL GETARG(I,ARGS) 29 if (args.ne.'') STOP 6 30end 31