]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.dwarf2/fortran-var-string.c
Update copyright year range in header of all files managed by GDB
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.dwarf2 / fortran-var-string.c
CommitLineData
1d506c26 1/* Copyright 2022-2024 Free Software Foundation, Inc.
4c937052
TT
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. */
18int
19main_helper (void *arg)
20{
21 asm ("main_helper_label: .globl main_helper_label");
22 return 0;
23}
24
25int
26main (void)
27{
28 asm ("main_label: .globl main_label");
29 main_helper (0);
30 return 0;
31}