2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / f2003_io_6.f03
blob40758e2232d9d52686e812fe57f1447d1a4046f6
1 ! { dg-do run }
2 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3 ! Test of decimal="comma" in namelist, checks separators
4 implicit none
5 integer :: i
6 real :: a(6) = 0.0
7 character(len=30) :: str = '&nm a = 1,3; 4, 5; 5; 7; /'
8 namelist /nm/ a
9 read(str,nml=nm,decimal='comma')
10 if (any(a.ne.[ 1.3, 4.0, 5.0, 5.0, 7.0, 0.0 ])) call abort
11 end