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