2 ! PR83191 Writing a namelist with repeated complex
8 integer, parameter :: UNIT
= 1
9 character(len
=8), parameter :: FILE
= "namelist"
11 complex, dimension(3) :: a
= (/ (0.0, 0.0), (0.0, 0.0), (3.0, 4.0) /)
13 namelist /complex_namelist
/ a
16 write(UNIT
, nml
=complex_namelist
)
20 read(UNIT
, nml
=complex_namelist
)
21 close(UNIT
, status
="delete")
22 if (any(a
.ne
.(/ (0.0, 0.0), (0.0, 0.0), (3.0, 4.0) /))) STOP 1