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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_54.f90] - Blame information for rev 308

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! PR37707 Namelist read of array of derived type incorrect.`
5			`type s`
6			`integer m`
7			`integer n`
8			`end type s`
9			`type(s) :: a(3)`
10			`character*80 :: l = ' &namlis a%m=1,2, a%n=5,6, /'`
11			`namelist /namlis/ a`
12			`a%m=[87,88,89]`
13			`a%n=[97,98,99]`
14			`read(l,namlis)`
15			`if (a(1)%m /= 1 .or. a(2)%m /= 2 .or. a(1)%n /= 5 .or. a(2)%n /= 6 .or. &`
16			`& a(3)%m /= 89 .or. a(3)%n /= 99) call abort`
17			`end`