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/] [auto_char_len_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "" }`	`! { dg-options "" }`
`! [option to disable -pedantic as assumed character length`	`! [option to disable -pedantic as assumed character length`
`! functions are obsolescent]`	`! functions are obsolescent]`
`!`	`!`
`! PR fortran/41235`	`! PR fortran/41235`
`!`	`!`

`character(len=*) function func()`	`character(len=*) function func()`
`func = 'ABC'`	`func = 'ABC'`
`end function func`	`end function func`

`subroutine test(i)`	`subroutine test(i)`
`integer :: i`	`integer :: i`
`character(len=i), external :: func`	`character(len=i), external :: func`
`print *, func()`	`print *, func()`
`end subroutine test`	`end subroutine test`

`subroutine test2(i)`	`subroutine test2(i)`
`integer :: i`	`integer :: i`
`character(len=i) :: func`	`character(len=i) :: func`
`print *, func()`	`print *, func()`
`end subroutine test2`	`end subroutine test2`

`call test(2)`	`call test(2)`
`call test2(2)`	`call test2(2)`
`end`	`end`