blob: 694c069e368777d7fe07e8ac2f67745ce835003e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do run }
! pr 19071
! test case provided by
! Thomas.Koenig@online.de
program cio
complex a
real r1,r2
a = cmplx(1.0, 2.0)
open(unit=74,status='scratch')
write(74,'(1P,E13.5)')a
rewind(74)
! can read the complex in as two reals, one on each line
read(74,'(E13.5)')r1,r2
if (r1.ne.1.0 .and. r2.ne.2.0) call abort
end
|