gcc/testsuite/gfortran.dg/backtrace_1.f90

   1 ! { dg-do run }
   2 !
   3 ! Check that BACKTRACE is available on all targets. We cannot actually
   4 ! check its output, but we should at least be able to call it, then exit
   5 ! normally.
   6 !
   7 program test
   8   call backtrace
   9   stop
  10 end program test