1! Copyright 2021-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! 19 20PROGRAM arank 21 22 REAL :: array0 23 REAL :: array1(10) 24 REAL :: array2(1, 2) 25 REAL :: array3(3, 4, 5) 26 REAL :: array4(4, 5, 6, 7) 27 28 array0 = 0 29 array1 = 1.0 30 array2 = 2.0 31 array3 = 3.0 32 array4 = 4.0 33 34 call test_rank (array0) 35 call test_rank (array1) 36 call test_rank (array2) 37 call test_rank (array3) 38 call test_rank (array4) 39 40 print *, "" ! Final Breakpoint 41 42CONTAINS 43 44 SUBROUTINE test_rank(answer) 45 REAL :: answer(..) 46 print *, RANK(answer) ! Test Breakpoint 47 END SUBROUTINE test_rank 48 49END PROGRAM arank 50