Subversion Repositories scarts

! 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