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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR 35719 - associated used to fail with zero-sized automatic arrays`	`! PR 35719 - associated used to fail with zero-sized automatic arrays`
`! Test case contributed by Dick Hendrickson`	`! Test case contributed by Dick Hendrickson`

`program try_mf1053`	`program try_mf1053`

`call mf1053 ( 1, 2, 3, 4)`	`call mf1053 ( 1, 2, 3, 4)`
`end`	`end`

`SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)`	`SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)`
`INTEGER, pointer :: ptr(:,:)`	`INTEGER, pointer :: ptr(:,:)`
`INTEGER, target :: ILA1(NF2,NF4:NF3)`	`INTEGER, target :: ILA1(NF2,NF4:NF3)`

`ptr => ILA1`	`ptr => ILA1`

`if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort`	`if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort`
`if ( .not. ASSOCIATED(ptr) ) call abort`	`if ( .not. ASSOCIATED(ptr) ) call abort`

`END SUBROUTINE`	`END SUBROUTINE`