16 lines
438 B
Fortran
16 lines
438 B
Fortran
! { 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
|