blob: 587690b6c88feda554acf9ad1d833d4a0ba60ec2 (
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))) STOP 1
end program test
|