fortran/test/sysinfo.f90 · 332 字节 · 下载原文

! sysinfo.f90 —— 全能接口 CALLJSON(#573) 自检：调用 sysinfo 并把返回的 JSON 整份打出来。

! sysinfo.f90 -- self-check for the all-purpose interface CALLJSON(#573): call sysinfo and print the whole returned JSON.


program p
  call ui_call_json_s('sysinfo', '')
  call ui_call_json_print()
end program p