Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2003_io_5.f03 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +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="comma" in namelist and complex integer :: i real :: a(10) = [ (i*1.3, i=1,10) ] real :: b(10) complex :: c character(36) :: complex namelist /nm/ a open(99,file="mynml",form="formatted",decimal="point",status="replace") write(99,nml=nm,decimal="comma") a = 5.55 rewind(99) read(99,nml=nm,decimal="comma") if (any (a /= [ (i*1.3, i=1,10) ])) STOP 1 close(99, status="delete") c = (3.123,4.456) write(complex,*,decimal="comma") c if (complex.ne." (3,12299991;4,45599985)") STOP 2 c = (0.0, 0.0) read(complex,*,decimal="comma") c if (complex.ne." (3,12299991;4,45599985)") STOP 3 end