blob: 82bb46df12c037e21885029f025ec340770ad8ab [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=gnu" }
!
! PR 32938
subroutine r (*)
integer(kind=8) :: i
return i
end