gcc-4.3.1/gcc/testsuite/gfortran.dg/altreturn_6.f90

! PR 32938
subroutine r (*)
  integer(kind=8) :: i
  return i
end