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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-fcheck=bounds" }
!
! PR fortran/50815
!
! Don't check the bounds of deferred-length strings.
! gfortran had an ICE before because it did.
!
SUBROUTINE TEST(VALUE)
    IMPLICIT NONE
    CHARACTER(LEN=:),    ALLOCATABLE    ::    VALUE
    CHARACTER(LEN=128)    ::    VAL
    VALUE = VAL
END SUBROUTINE TEST

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fcheck=bounds" }`
3			`!`
4			`! PR fortran/50815`
5			`!`
6			`! Don't check the bounds of deferred-length strings.`
7			`! gfortran had an ICE before because it did.`
8			`!`
9			`SUBROUTINE TEST(VALUE)`
10			`IMPLICIT NONE`
11			`CHARACTER(LEN=:), ALLOCATABLE :: VALUE`
12			`CHARACTER(LEN=128) :: VAL`
13			`VALUE = VAL`
14			`END SUBROUTINE TEST`

Browse

Tools

Subversion Repositories openrisc

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