Print pwd

Author: minhqdao

src/stdlib_io_zip.f90

@@ -88,6 +88,8 @@ subroutine unzip(filename, outputdir, stat, msg)
  end if
  end if
 
+ print *, 'hellohello'
+ call execute_command_line('pwd')
  call run('unzip -q '//filename//' -d '//output_dir, run_stat)
  if (run_stat /= 0) then
  if (present(stat)) stat = run_stat