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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_11.f03] - Blame information for rev 749

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	694	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

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_type_11.f03] - Blame information for rev 749