| ! { 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 |