Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/namelist_38.f90 @ 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 } ! PR33253 namelist: reading back a string, also fixed writing with delimiters. ! Test case modified from that of the PR by ! Jerry DeLisle <jvdelisle@gcc.gnu.org> program main implicit none character(len=3) :: a character(25) :: b namelist /foo/ a open(10, status="scratch", delim="quote") a = 'a"a' write(10,foo) rewind 10 a = "" read (10,foo) ! This gave a runtime error before the patch. if (a.ne.'a"a') call abort close (10) open(10, status="scratch", delim="apostrophe") a = "a'a" write(10,foo) rewind 10 a = "" read (10,foo) if (a.ne."a'a") call abort close (10) open(10, status="scratch", delim="none") a = "a'a" write(10,foo) rewind (10) read(10,"(a)") b if (b .ne. "&FOO") call abort read(10,"(a)") b if (b .ne. " A=a'a") call abort read(10,"(a)") b if (b .ne. " /") call abort close(10) end program main