1 ! { dg-do run { target fd_truncate } }
2 ! { dg-options "-std=gnu" }
3 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
11 open(10, file='mydata_f2003_io_1', asynchronous="yes", blank="null")
13 write(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=j) a
15 read(10,'(10f8.3)', asynchronous="yes", decimal="comma", blank="zero") b
17 if (any(b.ne.23.45)) STOP 1
20 write(msg, *, decimal="comma") c
21 if (msg(1:7).ne." 3,14") STOP 2
25 write(10,'(10f8.3)', asynchronous="yes", decimal="point") a
27 read(10,'(10f8.3)', asynchronous="yes", decimal="point") b
29 if (any(b.ne.23.45)) STOP 3
31 wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=j)
33 ! do some stuff with a
38 close(10, status="delete")