Subversion Repositories openrisc

! { dg-do run }

! Test case prepared by Jerry DeLisle  

! Test of decimal="comma" in namelist and complex

integer :: i

real :: a(10) = [ (i*1.3, i=1,10) ]

real :: b(10)

complex :: c

character(36) :: complex

namelist /nm/ a

open(99,file="mynml",form="formatted",decimal="point",status="replace")

write(99,nml=nm,decimal="comma")

a = 5.55

rewind(99)

read(99,nml=nm,decimal="comma")

if (any (a /= [ (i*1.3, i=1,10) ])) call abort

close(99, status="delete")

c = (3.123,4.456)

write(complex,*,decimal="comma") c

if (complex.ne." (  3,12299991    ;  4,45599985    )") call abort

c = (0.0, 0.0)

read(complex,*,decimal="comma") c

if (complex.ne." (  3,12299991    ;  4,45599985    )") call abort

end