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/] [missing_parens_1.f90] - Blame information for rev 399

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR34325 Wrong error message for syntax error`
3			`program aa`
4			`implicit none`
5			`real(kind=8)::r1=0`
6			`real(kind=8),dimension((1)::r2 ! { dg-error "Missing '\\)' in statement" }`
7			`real(kind=8),dimension(3,3)::r3`
8			`character(25) :: a`
9			`a = 'I am not a )))))'')''.'`
10			`if ((((((a /= "I am not a )))))')'.")))))) call abort`
11			`if ((((((a /= 'I am not a )))))'')''.')))))) call abort`
12			`a = "I am not a )))))"")""."`
13			`if ((((((a /= "I am not a )))))"")"".")))))) call abort`
14			`if (((3r1)*2)>= 0) a = "good"`
15			`if ((3r1)*2)>= 0) a = "bad" ! { dg-error "Missing '\\(' in statement" }`
16			`r3((2,2)) = 4.3 ! { dg-error "found COMPLEX" }`
17			`do while ((.true.) ! { dg-error "Missing '\\)' in statement" }`
18			`do while (.true. ! { dg-error "Missing '\\)' in statement" }`
19			`end`