Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2003_io_3.f03 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-std=f2003" } ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> integer :: istat character(25) :: msg real, dimension(10) :: a, b namelist /mynml/ a, b msg = "null" a = 43.21 WRITE(99,'(10f8.3)',decimal="comma") a rewind(99) read(99,'(dc,10f8.3)',blank=msg) b write(99,'(dp,10f8.3)',round="up") rewind(99) read(99,'(10f8.3)',pad="yes") msg="suppress" write(99,'(10f8.3)',sign=msg) write(99,delim="apostrophe", fmt=*) write(99,nml=mynml,delim="none") end