blob: 9549869a6beeba94c6d8ebe1d37867054efd2bb4 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=gnu" }
! See altreturn_9_0.f90
subroutine sub(i, *, j)
if (i == 10 .and. j == 20) return 1
return
end subroutine sub