URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [ambig.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`MODULE TYPESP`	`MODULE TYPESP`
`TYPE DMT`	`TYPE DMT`
`REAL(KIND(1.D0)), POINTER :: ASPK(:)`	`REAL(KIND(1.D0)), POINTER :: ASPK(:)`
`END TYPE DMT`	`END TYPE DMT`
`END MODULE TYPESP`	`END MODULE TYPESP`

`MODULE TCNST`	`MODULE TCNST`
`Integer, Parameter :: DIM_TEMP_BUFFER=10000`	`Integer, Parameter :: DIM_TEMP_BUFFER=10000`
`Real(Kind(1.d0)), Parameter :: COLROW_=0.33,PERCENT=0.7`	`Real(Kind(1.d0)), Parameter :: COLROW_=0.33,PERCENT=0.7`
`end MODULE TCNST`	`end MODULE TCNST`


`Subroutine DOWORK(A)`	`Subroutine DOWORK(A)`
`Use TYPESP`	`Use TYPESP`
`Use TCNST`	`Use TCNST`
`Type(DMT), intent (inout) :: A`	`Type(DMT), intent (inout) :: A`
`Real(Kind(1.d0)),Pointer :: ASPK(:)`	`Real(Kind(1.d0)),Pointer :: ASPK(:)`
`Integer :: ISIZE, IDIM`	`Integer :: ISIZE, IDIM`

`ISIZE=DIM_TEMP_BUFFER`	`ISIZE=DIM_TEMP_BUFFER`

`Allocate(ASPK(ISIZE),STAT=INFO)`	`Allocate(ASPK(ISIZE),STAT=INFO)`
`IDIM = MIN(ISIZE,SIZE(A%ASPK))`	`IDIM = MIN(ISIZE,SIZE(A%ASPK))`
`ASPK(1:IDIM) = A%ASPK(1:IDIM)`	`ASPK(1:IDIM) = A%ASPK(1:IDIM)`
`Return`	`Return`
`End Subroutine DOWORK`	`End Subroutine DOWORK`