📄 arraysave.f90
字号:
! Program to test arrays with the save attributeprogram testarray implicit none integer, save, dimension (6, 5) :: a, b a = 0 a(1, 1) = 42 a(6, 5) = 43 b(:,1:5) = a call fn (a)containssubroutine fn (a) implicit none integer, dimension(1:, 1:) :: a integer, dimension(2) :: b b = ubound (a) if (any (b .ne. (/6, 5/))) call abort if (a(1, 1) .ne. 42) call abort if (a(6, 5) .ne. 43) call abortend subroutineend program
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -