gcc/testsuite/gfortran.dg/f2003_io_4.f03

   1 ! { dg-do run }
   2 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   3 ! Test of decimal= feature
   4
   5 integer :: istat
   6 character(80) :: msg
   7 real, dimension(4) :: a, b, c
   8 namelist /mynml/ a, b
   9 msg = "yes"
  10 a = 43.21
  11 b = 3.131
  12 c = 5.432
  13 open(99, decimal="comma", status="scratch")
  14 write(99,'(10f8.3)') a
  15 a = 0.0
  16 rewind(99)
  17 read(99,'(10f8.3)') a
  18 if (any(a.ne.43.21)) call abort
  19
  20 write(msg,'(dp,f8.3,dc,f8.2,dp,f8.3)', decimal="comma") a(1), b(1), c(1)
  21 if (trim(msg).ne."  43.210    3,13   5.432") call abort
  22
  23 close(99)
  24 open(99, decimal="comma", status="scratch")
  25 write(99,nml=mynml)
  26 a = 0.0
  27 b = 0.0
  28 rewind(99)
  29 read(99,nml=mynml)
  30 if (any(a.ne.43.21)) call abort
  31 if (any(b.ne.3.131)) call abort
  32 close(99)
  33 end