Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2003_io_4.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test of decimal= feature integer :: istat character(80) :: msg real, dimension(4) :: a, b, c namelist /mynml/ a, b msg = "yes" a = 43.21 b = 3.131 c = 5.432 open(99, decimal="comma", status="scratch") write(99,'(10f8.3)') a a = 0.0 rewind(99) read(99,'(10f8.3)') a if (any(a.ne.43.21)) STOP 1 write(msg,'(dp,f8.3,dc,f8.2,dp,f8.3)', decimal="comma") a(1), b(1), c(1) if (trim(msg).ne." 43.210 3,13 5.432") STOP 2 close(99) open(99, decimal="comma", status="scratch") write(99,nml=mynml) a = 0.0 b = 0.0 rewind(99) read(99,nml=mynml) if (any(a.ne.43.21)) STOP 3 if (any(b.ne.3.131)) STOP 4 close(99) end