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

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! This tests the patch for PR27584, where an ICE would ensue if`	`! This tests the patch for PR27584, where an ICE would ensue if`
`! a bad argument was fed for the target in ASSOCIATED.`	`! a bad argument was fed for the target in ASSOCIATED.`
`!`	`!`
`! Contributed by Tobias Burnus`	`! Contributed by Tobias Burnus`
`!`	`!`
`program test`	`program test`
`implicit none`	`implicit none`
`real, pointer :: x`	`real, pointer :: x`
`real, target :: y`	`real, target :: y`
`if(ASSOCIATED(X,(Y))) print *, 'Hello' ! { dg-error "VARIABLE or FUNCTION" }`	`if(ASSOCIATED(X,(Y))) print *, 'Hello' ! { dg-error "VARIABLE or FUNCTION" }`
`end program test`	`end program test`