blob: 4b8659e5f344736556a25b449c8e6596c412f10c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { 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))) call abort()
end program test
|