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

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


! { dg-do compile }
!
! PR 43244: Invalid statement misinterpreted as FINAL declaration
!
! Contributed by Janus Weil 
 
implicit none
type particle
  integer :: ID
end type
type(particle), dimension(1,1:3)  :: finalState
finalstate(1,(/1:2/))%ID = (/1,103/)  ! { dg-error "Syntax error in array constructor" }
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 43244: Invalid statement misinterpreted as FINAL declaration`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`implicit none`
8			`type particle`
9			`integer :: ID`
10			`end type`
11			`type(particle), dimension(1,1:3) :: finalState`
12			`finalstate(1,(/1:2/))%ID = (/1,103/) ! { dg-error "Syntax error in array constructor" }`
13			`end`

Browse

Tools

Subversion Repositories openrisc_me

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