PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / f2003_io_1.f03
blob8021d7906fd1463df53a002f8ec27d7c396a8597
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
9 a = 23.45
10 b = 0.0
11 open(10, file='mydata_f2003_io_1', asynchronous="yes", blank="null")
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)) STOP 1
18 c = 3.14
19 write(msg, *, decimal="comma") c
20 if (msg(1:7).ne."   3,14") STOP 2
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)) STOP 3
29 wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=j)
31 ! do some stuff with a
32 25 continue
34 35 continue
36 close(10, status="delete")
37 end