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