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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [specification_type_resolution_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR30283 in which the type of the result`	`! Tests the fix for PR30283 in which the type of the result`
`! of bar was getting lost`	`! of bar was getting lost`

`! Contributed by Harald Anlauf`	`! Contributed by Harald Anlauf`

`module gfcbug50`	`module gfcbug50`
`implicit none`	`implicit none`
`contains`	`contains`

`subroutine foo (n, y)`	`subroutine foo (n, y)`
`integer, intent(in) :: n`	`integer, intent(in) :: n`
`integer, dimension(bar (n)) :: y`	`integer, dimension(bar (n)) :: y`
`! Array bound is specification expression, which is allowed (F2003, sect.7.1.6)`	`! Array bound is specification expression, which is allowed (F2003, sect.7.1.6)`
`end subroutine foo`	`end subroutine foo`

`pure function bar (n) result (l)`	`pure function bar (n) result (l)`
`integer, intent(in) :: n`	`integer, intent(in) :: n`
`integer :: l`	`integer :: l`
`l = n`	`l = n`
`end function bar`	`end function bar`

`end module gfcbug50`	`end module gfcbug50`

`! { dg-final { cleanup-modules "gfcbug50" } }`	`! { dg-final { cleanup-modules "gfcbug50" } }`