Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2003_io_6.f03 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test of decimal="comma" in namelist, checks separators implicit none integer :: i real :: a(6) = 0.0 character(len=30) :: str = '&nm a = 1,3; 4, 5; 5; 7; /' namelist /nm/ a read(str,nml=nm,decimal='comma') if (any(a.ne.[ 1.3, 4.0, 5.0, 5.0, 7.0, 0.0 ])) call abort end