aarch64: Add vector floating point extend pattern [PR113880, PR113869]

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr67219.f90

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