how to use new get arg in f03

srinathv · Jan 10, 2013 · bcf0513 · bcf0513
1 parent f74f186
commit bcf0513
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/codingTests/fortran2003/testgetarg.f03 b/codingTests/fortran2003/testgetarg.f03
@@ -0,0 +1,14 @@
+          PROGRAM test_get_command_argument
+            INTEGER :: i
+            CHARACTER(len=32) :: arg
+
+            i = 0
+            DO
+              CALL get_command_argument(i, arg)
+              IF (LEN_TRIM(arg) == 0) EXIT
+
+              WRITE (*,*) TRIM(arg)
+              i = i+1
+            END DO
+          END PROGRAM
+