1! { dg-do run } 2! 3! PR fortran/56810 4! 5! Contributed by Jonathan Hogg 6! 7program test 8 implicit none 9 10 integer :: i 11 complex :: a(4) 12 13 open (99, status='scratch') 14 write (99, *) '4*(1.0,2.0)' 15 rewind (99) 16 read (99,*) a(:) 17 close (99) 18 if (any (a /= cmplx (1.0,2.0))) call abort() 19end program test 20