?? module_double_reuse.f90
字號:
! Test of fix for PR18878!! Based on example in PR by Steve Kargl!module a integer, parameter :: b = kind(1.d0) real(b) :: zend module aprogram d use a, only : e => b, f => b, u => z, v => z real(e) x real(f) y x = 1.e0_e y = 1.e0_f u = 99.0 if (kind(x).ne.kind(y)) call abort () if (v.ne.u) call abort ()end program d?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -