Commit | Line | Data |
---|---|---|
82492b51 KB |
1 | C |
2 | C Copyright (c) 1980 The Regents of the University of California. | |
3 | C All rights reserved. | |
4 | C | |
5 | C %sccs.include.proprietary.f% | |
6 | C | |
7 | C @(#)argtst.f 5.2 (Berkeley) %G% | |
8 | C | |
9 | ||
8385cd1b KB |
10 | character*16 arg, env |
11 | n = iargc() | |
12 | call getarg(0, arg) | |
13 | write(*,*) "name:", arg | |
14 | if (n .gt. 0) then | |
15 | do 100 i=1, n | |
16 | call getarg(i, arg) | |
17 | call getenv(arg, env) | |
18 | 100 write(*,*) i, arg, env | |
19 | endif | |
20 | end |