?? where_nested_1.f90
字號:
! { dg-do compile }! PR 25423: Nested WHERE constructs.program nested_where implicit none integer :: a(4) logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), & mask2(4) = (/.TRUE., .FALSE., .TRUE., .FALSE./) where (mask1) where (mask2) a = 1 elsewhere a = 2 end where elsewhere where (mask2) a = 3 elsewhere a = 4 end where end where print *, aend program nested_where?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -