1! Copyright 2022-2023 Free Software Foundation, Inc. 2! 3! This program is free software; you can redistribute it and/or modify 4! it under the terms of the GNU General Public License as published by 5! the Free Software Foundation; either version 3 of the License, or 6! (at your option) any later version. 7! 8! This program is distributed in the hope that it will be useful, 9! but WITHOUT ANY WARRANTY; without even the implied warranty of 10! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11! GNU General Public License for more details. 12! 13! You should have received a copy of the GNU General Public License 14! along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16! 17! Start of test program. 18! 19program test 20 21 ! Declare variables used in this test. 22 integer, dimension (-2:2) :: array_1d 23 integer, dimension (-2:3) :: array_1d9 24 integer, dimension (-2:2, -2:2) :: array_2d 25 integer, dimension (-2:3, -2:3) :: array_2d9 26 integer, dimension (-2:2, -2:2, -2:2) :: array_3d 27 integer, dimension (-2:3, -2:3, -2:3) :: array_3d9 28 29 array_1d = 1 30 array_1d9 = 1 31 array_1d9 (3) = 9 32 array_2d = 2 33 array_2d9 = 2 34 array_2d9 (3, :) = 9 35 array_2d9 (:, 3) = 9 36 array_3d = 3 37 array_3d9 = 3 38 array_3d9 (3, :, :) = 9 39 array_3d9 (:, 3, :) = 9 40 array_3d9 (:, :, 3) = 9 41 42 print *, "" ! Break here 43 print *, array_1d 44 print *, array_1d9 45 print *, array_2d 46 print *, array_2d9 47 print *, array_3d 48 print *, array_3d9 49 50end program test 51