diff --git a/codingTests/fortran2003/testgetarg.f03 b/codingTests/fortran2003/testgetarg.f03
new file mode 100644
index 0000000..5a94016
--- /dev/null
+++ 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
+