GET_COMMAND — Get the entire command lineCALL GET_COMMAND([COMMAND, LENGTH, STATUS])
| COMMAND | (Optional) shall be of type CHARACTER and
of default kind.
|
| LENGTH | (Optional) Shall be of type INTEGER and of
default kind.
|
| STATUS | (Optional) Shall be of type INTEGER and of
default kind.
|
PROGRAM test_get_command
CHARACTER(len=255) :: cmd
CALL get_command(cmd)
WRITE (*,*) TRIM(cmd)
END PROGRAM