URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [list_read_4.f90] - Blame information for rev 12

Line No.	Rev	Author	Line
1	12	jlechner	`! { dg-do run }`
2			`! Test of gfortran list directed read> check delimiters are correctly`
3			`! treated. Written in f77 so that g77 will run for comparison.`
4			`!`
5			`! f , e and i edit reads are terminated separately by read_real.c`
6			`!`
7			`! PThomas Jan 2005`
8			`! BDavis`
9			`program list_read_4`
10			`integer i(10),l(10),k,j`
11			`real x(10),y(10)`
12			`! expected results`
13			`data y / 1.0,2.0,3.0,-1.0,-1.0,-1.0,4.0,4.0,99.0,99.0 /`
14			`data l /1,2,3,-1,-1,-1,4,4,99,99/`
15			`! put them in a file`
16			`open (10,status="scratch")`
17			`write (10,) " 1.0, 2.0 , 3.0,, 2 , 24.0 , 599.0"`
18			`write (10,) " 1.0e0, 2.0e0 , 3.0e0,, 2 , 24.0e0 , 599.0e0"`
19			`write (10,) " 1, 2 , 3,, 2 , 24 , 599"`
20			`write (10,) " 1, 2 , 3,, 2 , 24 , 599"`
21			`rewind (10)`
22			`!`
23			`do k = 1,10`
24			`x(k) = -1.0`
25			`enddo`
26			`read (10,*,iostat=ier) x`
27			`if (ier.ne.0) call abort`
28			`do k = 1,10`
29			`if (x(k).ne.y(k)) call abort`
30			`x(k) = -1`
31			`end do`
32			`READ(10,*,iostat=ier) x`
33			`if (ier.ne.0) call abort`
34			`do k = 1,10`
35			`if (x(k).ne.y(k)) call abort`
36			`x(k) = -1`
37			`end do`
38			`READ(10,*,iostat=ier) x`
39			`if (ier.ne.0) call abort`
40			`do k = 1,10`
41			`if (x(k).ne.y(k)) call abort`
42			`x(k) = -1`
43			`end do`
44			`! integer`
45			`do k = 1,10`
46			`i(k) = -1`
47			`end do`
48			`READ(10,*,iostat=ier) (i(j),j=1,10)`
49			`if (ier.ne.0) call abort`
50			`do k = 1,10`
51			`if (i(k).ne.y(k)) call abort`
52			`i(k) = -1`
53			`end do`
54			`end`