gcc/testsuite/gfortran.dg/noreturn-3.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-Wuninitialized -Wmaybe-uninitialized" }
   3
   4 subroutine foo
   5 implicit none
   6 integer :: i
   7 !GCC$ ATTRIBUTES noreturn :: mpi_abort
   8 if (getpid() == 1) then
   9   call mpi_abort()
  10 else
  11   i = 8
  12 endif
  13 if (i > 0) print *, i
  14 end subroutine