1! { dg-do compile }
2! { dg-options "-std=f2003" }
3! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4
5integer :: istat, idvar
6character(25) :: msg
7real, dimension(10) :: a, b
8
9a = 43.21
10open(10, file='mydata', asynchronous="yes")
11write(10,'(10f8.3)', asynchronous="yes", decimal="comma") a
12rewind(10)
13read(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=idvar) b
14istat = 123456
15wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=idvar)
16
17print *, istat
18
1925 continue
20
2135 continue
22end
23