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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! PR fortran/33626`
5			`! Types were not always propagated correctly`
6			`logical(kind=1) :: i, j`
7			`integer(kind=1) :: a, b`
8			`character*1 :: c, d`
9			`if (any( (/ kind(i .and. j), kind(.not. (i .and. j)), kind((a + b)), &`
10			`kind((42_1)), kind((j .and. i)), kind((.true._1)), &`
11			`kind(c // d), kind((c) // d), kind((c//d)) /) /= 1 )) call abort()`
12			`if (any( (/ len(c // d), len((c) // d), len ((c // d)) /) /= 2)) call abort()`
13			`end`