?? dfloat_1.f90
字號:
! { dg-do run }! Progam to test the dfloat intrinsic.program dfloat_1 implicit none integer(2) i2 integer(4) i4 integer(8) i8 i2 = -4_2 i4 = 4_4 i8 = 10_8 if (dfloat(i2) /= -4.d0) call abort() if (dfloat(i4) /= 4.d0) call abort() if (dfloat(i8) /= 10.d0) call abort() if (dfloat(i4*i2) /= -16.d0) call abort()end program dfloat_1?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -