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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [blockdata_3.f90] - Blame information for rev 801

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


! { dg-do compile }
! { dg-options "-W -Wall" }
! Tests the fix for PR29539, in which the derived type in a blockdata
! cause an ICE.  With the fix for PR29565, this now compiles and runs
! correctly.
!
! Contributed by Bernhard Fischer  
!
block data
  common /c/ d(5), cc
  type c_t
    sequence
    integer i
  end type c_t
  type (c_t) :: cc
  data d /5*1./
  data cc%i /5/
end
 
  common /c/ d(5), cc
  type c_t
    sequence
    integer i
  end type c_t
  type (c_t) :: cc
  print *, d
  print *, cc
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-W -Wall" }`
3			`! Tests the fix for PR29539, in which the derived type in a blockdata`
4			`! cause an ICE. With the fix for PR29565, this now compiles and runs`
5			`! correctly.`
6			`!`
7			`! Contributed by Bernhard Fischer`
8			`!`
9			`block data`
10			`common /c/ d(5), cc`
11			`type c_t`
12			`sequence`
13			`integer i`
14			`end type c_t`
15			`type (c_t) :: cc`
16			`data d /5*1./`
17			`data cc%i /5/`
18			`end`
19
20			`common /c/ d(5), cc`
21			`type c_t`
22			`sequence`
23			`integer i`
24			`end type c_t`
25			`type (c_t) :: cc`
26			`print *, d`
27			`print *, cc`
28			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [blockdata_3.f90] - Blame information for rev 801