gcc/testsuite/gfortran.dg/f2003_io_2.f03

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