?? tiny_1.f90
字號:
! { dg-do run }! Test program inspired by bug report from Walt Brainerd.! http://gcc.gnu.org/ml/fortran/2005-04/msg00132.htmlprogram tiny1 real(4) x4 real(8) x8 if (minexponent(x4) /= exponent(tiny(x4))) call abort if (minexponent(x8) /= exponent(tiny(x8))) call abortend program tiny1
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -