?? nestcons.f90
字號:
! Program to test array expressions in array constructors.program nestcons implicit none integer, parameter :: w1(3)= (/ 5, 6, 7/) integer, dimension(6) :: w2 w2 = (/ 1, 2, w1(3:1:-1), 3 /) if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) call abortend
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -