gdb/testsuite/gdb.dwarf2/dw2-case-insensitive.c

   1 /* This testcase is part of GDB, the GNU debugger.
   2
   3    Copyright 2011-2023 Free Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18 /* Target-specific way of forcing an instruction label.  */
  19 #ifdef __mips__
  20 #define START_INSNS asm (".insn");
  21 #else
  22 #define START_INSNS
  23 #endif
  24
  25 /* Use DW_LANG_Fortran90 for case insensitive DWARF.  */
  26 asm (".globl cu_text_start");
  27 asm ("cu_text_start:");
  28 START_INSNS
  29
  30 asm (".globl FUNC_lang_start");
  31 asm (".p2align 4");
  32 asm ("FUNC_lang_start:");
  33 START_INSNS
  34
  35 void
  36 FUNC_lang (void)
  37 {
  38 }
  39
  40 asm (".globl FUNC_lang_end");
  41 asm ("FUNC_lang_end:");
  42
  43 /* Symbol is present only in ELF .symtab.  */
  44
  45 void
  46 FUNC_symtab (void)
  47 {
  48 }
  49
  50 int
  51 main (void)
  52 {
  53   FUNC_lang ();
  54   FUNC_symtab ();
  55   return 0;
  56 }
  57
  58 asm (".globl cu_text_end");
  59 asm ("cu_text_end:");