1! { dg-do run } 2! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> 3! Test of decimal="comma" in namelist and complex 4integer :: i 5real :: a(10) = [ (i*1.3, i=1,10) ] 6real :: b(10) 7complex :: c 8character(36) :: complex 9namelist /nm/ a 10 11open(99,file="mynml",form="formatted",decimal="point",status="replace") 12write(99,nml=nm,decimal="comma") 13a = 5.55 14rewind(99) 15read(99,nml=nm,decimal="comma") 16if (any (a /= [ (i*1.3, i=1,10) ])) call abort 17close(99, status="delete") 18 19c = (3.123,4.456) 20write(complex,*,decimal="comma") c 21if (complex.ne." ( 3,12299991 ; 4,45599985 )") call abort 22c = (0.0, 0.0) 23read(complex,*,decimal="comma") c 24if (complex.ne." ( 3,12299991 ; 4,45599985 )") call abort 25 26end 27