From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/imfort/tasks/args.f | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 sys/imfort/tasks/args.f

(limited to 'sys/imfort/tasks/args.f')

diff --git a/sys/imfort/tasks/args.f b/sys/imfort/tasks/args.f
new file mode 100644
index 00000000..b484c4cd
--- /dev/null
+++ b/sys/imfort/tasks/args.f
@@ -0,0 +1,33 @@
+c ARGS -- Test the command line argument interface.
+c
+c	usage:  args [arg1 [arg2 ...]]
+c ------------------------------------------------------------------------
+
+	program args
+
+	character*80	argstr
+	integer		nargs, ier, i
+
+c --- Test raw command line access.
+	call clrawc (argstr, ier)
+	if (ier .ne. 0) then
+	    write (*, '('' clrawc returns status '', i3)') ier
+	else
+	    write (*, '('' clrawc: '', a80)') argstr
+	endif
+
+c --- Test parsed command line access.
+	call clnarg (nargs)
+	write (*, '('' nargs = '', i3)') nargs
+
+	do 10 i = 1, nargs
+	    call clargc (i, argstr, ier)
+	    if (ier .ne. 0) then
+		write (*, '('' unexpected error '', i3)') ier
+	    else
+		write (*, '(i4, 2x, a70)') i, argstr
+	    endif
+ 10	continue
+
+	stop
+	end
-- 
cgit