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/] [assumed_charlen_function_4.f90] - Blame information for rev 551

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


! { dg-do compile }
! { dg-options "-std=legacy" }
!
! Tests the fix for PR28600 in which the declaration for the
! character length n, would be given the DECL_CONTEXT of 'gee'
! thus causing an ICE.
!
! Contributed by Francois-Xavier Coudert  
!
subroutine bar(s, n)
 integer n
 character s*(n)
 character*3, dimension(:), pointer :: m
 s = ""
contains
 subroutine gee
    m(1) = s(1:3)
 end subroutine gee
end subroutine bar

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! Tests the fix for PR28600 in which the declaration for the`
5			`! character length n, would be given the DECL_CONTEXT of 'gee'`
6			`! thus causing an ICE.`
7			`!`
8			`! Contributed by Francois-Xavier Coudert`
9			`!`
10			`subroutine bar(s, n)`
11			`integer n`
12			`character s*(n)`
13			`character*3, dimension(:), pointer :: m`
14			`s = ""`
15			`contains`
16			`subroutine gee`
17			`m(1) = s(1:3)`
18			`end subroutine gee`
19			`end subroutine bar`

Browse

Tools

Subversion Repositories openrisc

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