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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "foo" }
!
! PR 36112
! Check correct bounds-checking behaviour for character-array-constructors.
 
  call test ("this is long")
contains
  subroutine test(s)
    character(len=*) :: s
    character(len=128) :: arr(2)
    arr = (/ "abc", s /)
  end subroutine test
end
! { dg-output "Different CHARACTER lengths \\(3/12\\) in array constructor" }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fbounds-check" }`
3			`! { dg-shouldfail "foo" }`
4			`!`
5			`! PR 36112`
6			`! Check correct bounds-checking behaviour for character-array-constructors.`
7
8			`call test ("this is long")`
9			`contains`
10			`subroutine test(s)`
11			`character(len=*) :: s`
12			`character(len=128) :: arr(2)`
13			`arr = (/ "abc", s /)`
14			`end subroutine test`
15			`end`
16			`! { dg-output "Different CHARACTER lengths \\(3/12\\) in array constructor" }`

Browse

Tools

Subversion Repositories openrisc

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