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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 47728: [OOP] ICE on invalid CLASS declaration
!
! Contributed by Arjen Markus 
 
program test_objects
 
   implicit none
 
   type, abstract :: shape
   end type
 
   type, extends(shape) :: rectangle
       real :: width, height
   end type
 
   class(shape), dimension(2) :: object  ! { dg-error "must be dummy, allocatable or pointer" }
 
   object(1) = rectangle( 1.0, 2.0 )  ! { dg-error "Unclassifiable statement" }
 
end program test_objects

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 47728: [OOP] ICE on invalid CLASS declaration`
4			`!`
5			`! Contributed by Arjen Markus`
6
7			`program test_objects`
8
9			`implicit none`
10
11			`type, abstract :: shape`
12			`end type`
13
14			`type, extends(shape) :: rectangle`
15			`real :: width, height`
16			`end type`
17
18			`class(shape), dimension(2) :: object ! { dg-error "must be dummy, allocatable or pointer" }`
19
20			`object(1) = rectangle( 1.0, 2.0 ) ! { dg-error "Unclassifiable statement" }`
21
22			`end program test_objects`

Browse

Tools

Subversion Repositories openrisc

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