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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_49.f90] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fbackslash" }`
3			`! PR36546 Namelist error with tab following a comma and newline`
4			`program check1`
5			`real a,b,c`
6			`namelist/CASEDAT/A,B,C`
7			`open(1, status="scratch")`
8			`write(1,'(a)') "&CASEDAT"`
9			`write(1,'(a)') "\t\tA = 1.0,\t\tB = 2.0,"`
10			`write(1,'(a)') "\t\tC = 3.0,"`
11			`write(1,'(a)') " /"`
12			`rewind(1)`
13			`a = 0.0`
14			`b = 0.0`
15			`c = 0.0`
16			`read(1,casedat)`
17			`if ((a.ne.1.0) .or. (b.ne.2.0) .or. (c.ne.3.0)) call abort`
18			`end`
19