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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Test the fix for pr41167, in which the first argument of 'pack', below,
! was simplified incorrectly, with the results indicated.
!
! Contributed by Harald Anlauf 
!
program gfcbug88
  implicit none
  type t
     character(len=8) :: name
  end type t
  type(t) ,parameter :: obstyp(2)= (/ t ('A'), t ('B') /)
  character(9) :: chr(1)
 
  print *, pack (" "//obstyp(:)% name, (/ .true., .false. /))  ! Used to ICE on compilation
  chr = pack (" "//obstyp(:)% name, (/ .true., .false. /))  ! Used to give conversion error
end program gfcbug88

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test the fix for pr41167, in which the first argument of 'pack', below,`
3			`! was simplified incorrectly, with the results indicated.`
4			`!`
5			`! Contributed by Harald Anlauf`
6			`!`
7			`program gfcbug88`
8			`implicit none`
9			`type t`
10			`character(len=8) :: name`
11			`end type t`
12			`type(t) ,parameter :: obstyp(2)= (/ t ('A'), t ('B') /)`
13			`character(9) :: chr(1)`
14
15			`print *, pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to ICE on compilation`
16			`chr = pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to give conversion error`
17			`end program gfcbug88`

Browse

Tools

Subversion Repositories openrisc

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