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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [empty_type.f90] - Blame information for rev 302

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


! { dg-do compile }
! PR fortran/34202
! ICE on contruction of empty types
! Testcase contributed by Tobias Burnus
 
program bug4a
  implicit none
  type bug4
    ! Intentionally left empty
  end type bug4
 
  type compound
    type(bug4) b
  end type compound
 
  type(bug4), parameter :: f = bug4()
  type(compound), parameter :: g = compound(bug4())
end program bug4a
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/34202`
3			`! ICE on contruction of empty types`
4			`! Testcase contributed by Tobias Burnus`
5
6			`program bug4a`
7			`implicit none`
8			`type bug4`
9			`! Intentionally left empty`
10			`end type bug4`
11
12			`type compound`
13			`type(bug4) b`
14			`end type compound`
15
16			`type(bug4), parameter :: f = bug4()`
17			`type(compound), parameter :: g = compound(bug4())`
18			`end program bug4a`
19

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [empty_type.f90] - Blame information for rev 302