Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2003_io_1.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run { target fd_truncate } } ! { dg-options "-std=gnu" } ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> real :: a(4), b(4) real :: c integer :: istat, j character(25) :: msg a = 23.45 b = 0.0 open(10, file='mydata_f2003_io_1', asynchronous="yes", blank="null") write(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=j) a rewind(10) read(10,'(10f8.3)', asynchronous="yes", decimal="comma", blank="zero") b wait(10) if (any(b.ne.23.45)) STOP 1 c = 3.14 write(msg, *, decimal="comma") c if (msg(1:7).ne." 3,14") STOP 2 b = 0.0 rewind(10) write(10,'(10f8.3)', asynchronous="yes", decimal="point") a rewind(10) read(10,'(10f8.3)', asynchronous="yes", decimal="point") b wait (10) if (any(b.ne.23.45)) STOP 3 wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=j) ! do some stuff with a 25 continue 35 continue close(10, status="delete") end