1! Copyright 2016-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! Check that GDB can handle block data with no global name. 17! 18! MAIN 19 PROGRAM bdata 20 DOUBLE PRECISION doub1, doub2 21 CHARACTER*6 char1, char2 22 23 COMMON /BLK1/ doub1, char1 24 COMMON /BLK2/ doub2, char2 25 26 doub1 = 11.111 27 doub2 = 22.222 28 char1 = 'ABCDEF' 29 char2 = 'GHIJKL' 30 CALL sub_block_data ! BP_BEFORE_SUB 31 STOP 32 END 33 34! BLOCK DATA 35 BLOCK DATA 36 37 DOUBLE PRECISION doub1, doub2 38 CHARACTER*6 char1, char2 39 40 COMMON /BLK1/ doub1, char1 41 COMMON /BLK2/ doub2, char2 42 DATA doub1, doub2 /1.111, 2.222/ 43 DATA char1, char2 /'abcdef', 'ghijkl'/ 44 END 45 46! SUBROUTINE 47 SUBROUTINE sub_block_data 48 49 DOUBLE PRECISION doub1, doub2 50 CHARACTER*6 char1, char2 51 52 COMMON /BLK1/ doub1, char1 53 COMMON /BLK2/ doub2, char2 54 55 char1 = char2; ! BP_SUB 56 END 57