1! { dg-do compile } 2! PR 67149 - this used to throw a spurious error. 3function foo(bar) 4 integer(8) :: foo 5 integer(4), intent(in) :: bar 6 integer(4), parameter :: huge_4 = huge(0_4) 7 foo = (huge_4 - int(bar,kind=8)) 8end function 9