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.dg/] [finalize_1.f08] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`

`! Parsing of finalizer procedure definitions.`	`! Parsing of finalizer procedure definitions.`
`! Check that CONTAINS is allowed in TYPE definition; but empty only for F2008`	`! Check that CONTAINS is allowed in TYPE definition; but empty only for F2008`

`MODULE final_type`	`MODULE final_type`
`IMPLICIT NONE`	`IMPLICIT NONE`

`TYPE :: mytype`	`TYPE :: mytype`
`INTEGER, ALLOCATABLE :: fooarr(:)`	`INTEGER, ALLOCATABLE :: fooarr(:)`
`REAL :: foobar`	`REAL :: foobar`
`CONTAINS`	`CONTAINS`
`END TYPE mytype`	`END TYPE mytype`

`CONTAINS`	`CONTAINS`

`SUBROUTINE bar`	`SUBROUTINE bar`
`TYPE :: t`	`TYPE :: t`
`CONTAINS ! This is ok`	`CONTAINS ! This is ok`
`END TYPE t`	`END TYPE t`
`! Nothing`	`! Nothing`
`END SUBROUTINE bar`	`END SUBROUTINE bar`

`END MODULE final_type`	`END MODULE final_type`

`PROGRAM finalizer`	`PROGRAM finalizer`
`IMPLICIT NONE`	`IMPLICIT NONE`
`! Do nothing here`	`! Do nothing here`
`END PROGRAM finalizer`	`END PROGRAM finalizer`

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