1 ! Copyright (c) 2018-2023. The SimGrid Team. All rights reserved.
3 ! This program is free software; you can redistribute it and/or modify it
4 ! under the terms of the license (GNU LGPL) which comes with this package.
6 ! Check that getarg does something sensible.
9 CHARACTER*10 ARGS, ARGS2
16 ! This should return the invoking command. The actual value depends
17 ! on the OS, but a blank string is wrong no matter what.
18 ! ??? What about deep embedded systems?
19 if (args.eq.'') STOP 2
22 if (args.ne.'a') STOP 3
25 if (args.ne.'') STOP 4
26 ! Assume we won't have been called with more that 4 args.
29 if (args.ne.'') STOP 5
32 if (args.ne.'') STOP 6
33 call MPI_Finalize(ierr)