URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_11.f03] - Blame information for rev 324

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
!
! PR fortran/27997
!
! Empty array constructor with typespec.
!
 integer :: i(3)
 i(3:2) = (/ integer :: /)
 if (len((/ character(5) :: /)) /= 5) call abort()
 if (kind((/ integer(8) :: /)) /= 8) call abort()
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/27997`
4			`!`
5			`! Empty array constructor with typespec.`
6			`!`
7			`integer :: i(3)`
8			`i(3:2) = (/ integer :: /)`
9			`if (len((/ character(5) :: /)) /= 5) call abort()`
10			`if (kind((/ integer(8) :: /)) /= 8) call abort()`
11			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_11.f03] - Blame information for rev 324