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

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

! { dg-do compile }
!
! Declaration of b used to be a bogus failure.

subroutine s (a, b, c, d, e, f, g)
  type(*) :: a
  type(* ) :: b
  type( *) :: c
  type( * ) :: d
  type(*  ) :: e
  type(  *) :: f
  type(  *  ) :: g
end