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