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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr26246_2.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! PR fortran/26246`	`! PR fortran/26246`
`! { dg-options "-fdump-tree-original -fno-automatic" }`	`! { dg-options "-fdump-tree-original -fno-automatic" }`
`! { dg-do compile }`	`! { dg-do compile }`

`subroutine foo(string, n)`	`subroutine foo(string, n)`
`implicit none`	`implicit none`
`integer :: n`	`integer :: n`
`character(len=n + 6), intent(in) :: string`	`character(len=n + 6), intent(in) :: string`
`if (string .eq. 'abc') call abort`	`if (string .eq. 'abc') call abort`
`end subroutine foo`	`end subroutine foo`

`! { dg-final { scan-tree-dump-times "static int" 0 "original" } }`	`! { dg-final { scan-tree-dump-times "static int" 0 "original" } }`
`! { dg-final { cleanup-tree-dump "original" } }`	`! { dg-final { cleanup-tree-dump "original" } }`