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

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

! { dg-do run }
!
! PR fortran/92754
!
! Contributed by G. Steinmetz
!

program p
   integer :: max
   block
      character :: x = max('a','b')
      !print *, x
      if (x /= 'b') stop 1
   end block
end