gcc/testsuite/gfortran.dg/f2003_io_5.f03

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