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/] [parent_result_ref_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! Tests the fix for PR19546 in which an ICE would result from`	`! Tests the fix for PR19546 in which an ICE would result from`
`! setting the parent result in a contained procedure.`	`! setting the parent result in a contained procedure.`
`! From the testcase of Francois-Xavier Coudert/Tobias Schlueter`	`! From the testcase of Francois-Xavier Coudert/Tobias Schlueter`
`!`	`!`
`function f()`	`function f()`
`integer :: f`	`integer :: f`
`f = 42`	`f = 42`
`call sub ()`	`call sub ()`
`if (f.eq.1) f = f + 1`	`if (f.eq.1) f = f + 1`
`contains`	`contains`
`subroutine sub`	`subroutine sub`
`if (f.eq.42) f = f - 41`	`if (f.eq.42) f = f - 41`
`end subroutine sub`	`end subroutine sub`
`end function f`	`end function f`

`integer, external :: f`	`integer, external :: f`
`if (f ().ne.2) call abort ()`	`if (f ().ne.2) call abort ()`
`end`	`end`