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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [select_type_9.f03] - Blame information for rev 437

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


! { dg-do compile }
!
! PR 42053: [OOP] SELECT TYPE: reject duplicate CLASS IS blocks
!
! Contributed by Janus Weil 
 
 type :: t
  integer :: i
 end type
 
 CLASS(t),pointer :: x
 
 select type (x)
 class is (t)
  print *,"a"
 class is (t)  ! { dg-error "Double CLASS IS block" }
  print *,"b"
 end select
 
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 42053: [OOP] SELECT TYPE: reject duplicate CLASS IS blocks`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`type :: t`
8			`integer :: i`
9			`end type`
10
11			`CLASS(t),pointer :: x`
12
13			`select type (x)`
14			`class is (t)`
15			`print *,"a"`
16			`class is (t) ! { dg-error "Double CLASS IS block" }`
17			`print *,"b"`
18			`end select`
19
20			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [select_type_9.f03] - Blame information for rev 437