gcc/testsuite/gfortran.dg/f2003_io_1.f03

   1 ! { dg-do run { target fd_truncate } }
   2 ! { dg-options "-std=gnu" }
   3 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   4 real :: a(4), b(4)
   5 real :: c
   6 integer :: istat, j
   7 character(25) :: msg
   8
   9 a = 23.45
  10 b = 0.0
  11 open(10, file='mydata', asynchronous="yes", blank="null")
  12
  13 write(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=j) a
  14 rewind(10)
  15 read(10,'(10f8.3)', asynchronous="yes", decimal="comma", blank="zero") b
  16 if (any(b.ne.23.45)) call abort
  17
  18 c = 3.14
  19 write(msg, *, decimal="comma") c
  20 if (msg(1:7).ne."   3,14") call abort
  21
  22 b = 0.0
  23 rewind(10)
  24 write(10,'(10f8.3)', asynchronous="yes", decimal="point") a
  25 rewind(10)
  26 read(10,'(10f8.3)', asynchronous="yes", decimal="point") b
  27 if (any(b.ne.23.45)) call abort
  28
  29 wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=j)
  30
  31 ! do some stuff with a
  32 25 continue
  33
  34 35 continue
  35
  36 close(10, status="delete")
  37 end