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

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

`! Type-bound procedures`	`! Type-bound procedures`
`! Check that calls work across module-boundaries.`	`! Check that calls work across module-boundaries.`

`MODULE m`	`MODULE m`
`IMPLICIT NONE`	`IMPLICIT NONE`

`TYPE trueOrFalse`	`TYPE trueOrFalse`
`LOGICAL :: val`	`LOGICAL :: val`
`CONTAINS`	`CONTAINS`
`PROCEDURE, PASS :: swap`	`PROCEDURE, PASS :: swap`
`END TYPE trueOrFalse`	`END TYPE trueOrFalse`

`CONTAINS`	`CONTAINS`

`SUBROUTINE swap (me1, me2)`	`SUBROUTINE swap (me1, me2)`
`IMPLICIT NONE`	`IMPLICIT NONE`
`CLASS(trueOrFalse), INTENT(INOUT) :: me1, me2`	`CLASS(trueOrFalse), INTENT(INOUT) :: me1, me2`

`IF (.NOT. me1%val .OR. me2%val) THEN`	`IF (.NOT. me1%val .OR. me2%val) THEN`
`CALL abort ()`	`CALL abort ()`
`END IF`	`END IF`

`me1%val = .FALSE.`	`me1%val = .FALSE.`
`me2%val = .TRUE.`	`me2%val = .TRUE.`
`END SUBROUTINE swap`	`END SUBROUTINE swap`

`END MODULE m`	`END MODULE m`

`PROGRAM main`	`PROGRAM main`
`USE m, ONLY: trueOrFalse`	`USE m, ONLY: trueOrFalse`
`IMPLICIT NONE`	`IMPLICIT NONE`

`TYPE(trueOrFalse) :: t, f`	`TYPE(trueOrFalse) :: t, f`

`t%val = .TRUE.`	`t%val = .TRUE.`
`f%val = .FALSE.`	`f%val = .FALSE.`

`CALL t%swap (f)`	`CALL t%swap (f)`
`CALL f%swap (t)`	`CALL f%swap (t)`

`IF (.NOT. t%val .OR. f%val) THEN`	`IF (.NOT. t%val .OR. f%val) THEN`
`CALL abort ()`	`CALL abort ()`
`END IF`	`END IF`
`END PROGRAM main`	`END PROGRAM main`

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