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