OSDN Git Service

2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / f2003_io_5.f03
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