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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [associated_5.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! PR 35719 - associated used to fail with zero-sized automatic arrays
! Test case contributed by Dick Hendrickson
 
      program try_mf1053
 
      call       mf1053 (  1,   2,   3,   4)
      end
 
      SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)
      INTEGER, pointer :: ptr(:,:)
      INTEGER, target  :: ILA1(NF2,NF4:NF3)
 
      ptr => ILA1
 
      if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort
      if ( .not. ASSOCIATED(ptr) )  call abort
 
      END SUBROUTINE

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 35719 - associated used to fail with zero-sized automatic arrays`
3			`! Test case contributed by Dick Hendrickson`
4
5			`program try_mf1053`
6
7			`call mf1053 ( 1, 2, 3, 4)`
8			`end`
9
10			`SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)`
11			`INTEGER, pointer :: ptr(:,:)`
12			`INTEGER, target :: ILA1(NF2,NF4:NF3)`
13
14			`ptr => ILA1`
15
16			`if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort`
17			`if ( .not. ASSOCIATED(ptr) ) call abort`
18
19			`END SUBROUTINE`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [associated_5.f90] - Blame information for rev 801