gdb/testsuite/gdb.fortran/backtrace.f90

   1 ! Copyright 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 subroutine bar ()
  17   return                ! Break here
  18 end subroutine bar
  19
  20 subroutine foo ()
  21   call bar ()
  22 end subroutine foo
  23
  24 program main
  25   interface
  26     subroutine bar ()
  27     end subroutine bar
  28     subroutine foo ()
  29     end subroutine foo
  30   end interface
  31   call foo ()
  32 end program main