?? byte_2.f90
字號:
! { dg-do run }! { dg-options "-std=gnu" }program testbyte integer(1) :: ii = 7 call foo(ii)end program testbytesubroutine foo(ii) integer(1) ii byte b b = ii call bar(ii,b)end subroutine foosubroutine bar(ii,b) integer (1) ii byte b if (b.ne.ii) then! print *,"Failed" call abort end ifend subroutine bar?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -