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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR39688: IMPORT of derived type fails`	`! PR39688: IMPORT of derived type fails`
`!`	`!`
`! Contributed by Bob Corbett`	`! Contributed by Bob Corbett`

`MODULE MOD`	`MODULE MOD`
`TYPE T1`	`TYPE T1`
`SEQUENCE`	`SEQUENCE`
`TYPE(T2), POINTER :: P`	`TYPE(T2), POINTER :: P`
`END TYPE`	`END TYPE`
`TYPE T2`	`TYPE T2`
`SEQUENCE`	`SEQUENCE`
`INTEGER I`	`INTEGER I`
`END TYPE`	`END TYPE`
`END`	`END`

`PROGRAM MAIN`	`PROGRAM MAIN`
`USE MOD, T3 => T1, T4 => T2`	`USE MOD, T3 => T1, T4 => T2`
`TYPE T1`	`TYPE T1`
`SEQUENCE`	`SEQUENCE`
`TYPE(T2), POINTER :: P`	`TYPE(T2), POINTER :: P`
`END TYPE`	`END TYPE`
`INTERFACE SUBR`	`INTERFACE SUBR`
`SUBROUTINE SUBR1(X)`	`SUBROUTINE SUBR1(X)`
`IMPORT T3`	`IMPORT T3`
`TYPE(T3) X`	`TYPE(T3) X`
`END SUBROUTINE`	`END SUBROUTINE`
`SUBROUTINE SUBR2(X)`	`SUBROUTINE SUBR2(X)`
`IMPORT T1`	`IMPORT T1`
`TYPE(T1) X`	`TYPE(T1) X`
`END SUBROUTINE`	`END SUBROUTINE`
`END INTERFACE`	`END INTERFACE`
`TYPE T2`	`TYPE T2`
`SEQUENCE`	`SEQUENCE`
`REAL X`	`REAL X`
`END TYPE`	`END TYPE`
`END`	`END`

`SUBROUTINE SUBR1(X)`	`SUBROUTINE SUBR1(X)`
`USE MOD`	`USE MOD`
`TYPE(T1) X`	`TYPE(T1) X`
`END`	`END`

`SUBROUTINE SUBR2(X)`	`SUBROUTINE SUBR2(X)`
`TYPE T1`	`TYPE T1`
`SEQUENCE`	`SEQUENCE`
`TYPE(T2), POINTER :: P`	`TYPE(T2), POINTER :: P`
`END TYPE`	`END TYPE`
`TYPE T2`	`TYPE T2`
`SEQUENCE`	`SEQUENCE`
`REAL X`	`REAL X`
`END TYPE`	`END TYPE`
`TYPE(T1) X`	`TYPE(T1) X`
`END`	`END`

`! { dg-final { cleanup-modules "mod" } }`	`! { dg-final { cleanup-modules "mod" } }`