fix cli args

fstarpu_example_dgemm.f90

@@ -98,9 +98,19 @@ program fstarpu_example_dgemm
   read(str(1:i),*) q
   call get_command_argument(7, value=str, length=i)
   read(str(1:i),*) t
-  if (command_argument_count() == 8) then        
-     trace = .true.
-  end if
+  do j = 8, command_argument_count()
+    call get_command_argument(j, value=str, length=i)
+    select case(str)
+      case('t')
+        trace = .true.
+      case('f')
+        lflush = .true.
+      case('p')
+        prune = .true.
+      case('h')
+        prune_handles = .true.
+    end select
+  end do
   
   if (mod(m,bs).ne.0) stop 75
   if (mod(n,bs).ne.0) stop 75