! Check that getarg does somethig sensible. program getarg_1 CHARACTER*10 ARGS INTEGER*4 I I = 0 CALL GETARG(I,ARGS) ! This should return the invoking command. The actual value depends ! on the OS, but a blank string is wrong no matter what. ! ??? What about deep embedded systems? if (args.eq.'') call abort I = 1 CALL GETARG(I,ARGS) if (args.ne.'') call abort I = -1 CALL GETARG(I,ARGS) if (args.ne.'') call abort ! Assume we won't have been called with more that 4 args. I = 4 CALL GETARG(I,ARGS) if (args.ne.'') call abort I = 1000 CALL GETARG(I,ARGS) if (args.ne.'') call abort end