1! { dg-do run }
2! PR 95191 - this used to hang.
3! Original test case by Bill Long.
4program test
5  real a(10000)
6  integer my_id
7  integer bad_id
8  integer :: iostat
9  character (len=100) :: iomsg
10  data my_id /1/
11  data bad_id /2/
12  a = 1.
13  open (unit=10, file='test.dat', form='unformatted', &
14       &                asynchronous='yes')
15  write (unit=10, asynchronous='yes', id=my_id) a
16  iomsg = ""
17  wait (unit=10, id=bad_id, iostat=iostat, iomsg=iomsg)
18  if (iostat == 0 .or. iomsg /= "Bad ID in WAIT statement") stop 1
19  close (unit=10, status='delete')
20end program test
21