1! { dg-do compile }
2! { dg-options "-std=gnu" }
3!
4! PR 32938
5subroutine r (*)
6  integer(kind=8) :: i
7  return i
8end
9