?? direct_io_3.f90
字號:
! { dg-do run }! PR 18710 : We used to not read and write the imaginary part of ! complex numbers COMPLEX C, D COMPLEX(KIND=8) E, F OPEN(UNIT=9,FILE='PR18710',ACCESS='DIRECT',RECL=132) C = (120.0,240.0) WRITE(9,REC=1)C READ(9,REC=1)D if (c /= d) call abort() E = (120.0,240.0) WRITE(9,REC=1)E READ(9,REC=1)F if (E /= F) call abort() CLOSE(UNIT=9,STATUS='DELETE') END?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -