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