OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [f2003_io_1.f03] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run { target fd_truncate } }
2
! { dg-options "-std=gnu" }
3
! Test case prepared by Jerry DeLisle  
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.