[AArch64] PR target/65491: Classify V1TF vectors as AAPCS64 short vectors rather...

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

! { dg-do run }
!
! PR fortran/34404
!
! Contributed by Joost VandeVondele.
!
implicit none
complex :: x
character(len=80) :: t="(1.0E-7,4.0E-3)"
read(t,*) x
if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-3) call abort()
END