xref: /netbsd-src/external/gpl3/gdb/dist/gdb/testsuite/gdb.dwarf2/fortran-var-string.c (revision ccd9df534e375a4366c5b55f23782053c7a98d82)
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 /* In the generated DWARF, we'll pretend that ARG is a string with dynamic
17    length.  */
18 int
19 main_helper (void *arg)
20 {
21   asm ("main_helper_label: .globl main_helper_label");
22   return 0;
23 }
24 
25 int
26 main (void)
27 {
28   asm ("main_label: .globl main_label");
29   main_helper (0);
30   return 0;
31 }
32