📄 select_1.f90
字号:
! { dg-do run }! Simple test for SELECT CASE!program select_2 integer i do i = 1, 5 select case(i) case (1) if (i /= 1) call abort case (2:3) if (i /= 2 .and. i /= 3) call abort case (4) if (i /= 4) call abort case default if (i /= 5) call abort end select end doend program select_2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -