! { dg-do run } | |
! | |
! PR fortran/56810 | |
! | |
! Contributed by Jonathan Hogg | |
! | |
program test | |
implicit none | |
integer :: i | |
complex :: a(4) | |
open (99, status='scratch') | |
write (99, *) '4*(1.0,2.0)' | |
rewind (99) | |
read (99,*) a(:) | |
close (99) | |
if (any (a /= cmplx (1.0,2.0))) STOP 1 | |
end program test |