1! { dg-do compile } 2! { dg-options "-O2" } 3 subroutine foo 4 implicit none 5 6 integer :: i 7 8 call gee_i(int(i**huge(0_8),kind=kind(i))) 9 10 end subroutine foo 11 12