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