gomp-20050608-branch/gcc/testsuite/gfortran.fortran-torture/execute/alternate_return.f90

   1 program alt_return
   2   implicit none
   3
   4   call myproc (1, *10, 42)
   5 20 continue
   6   call abort ()
   7 10 continue
   8   call myproc(2, *20, 42)
   9   call myproc(3, *20, 42)
  10 contains
  11 subroutine myproc(n, *, i)
  12   integer n, i
  13   if (i .ne. 42) call abort ()
  14   if (n .eq. 1) return 1
  15   if (n .eq. 2) return
  16 end subroutine
  17 end program alt_return
  18