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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR29284 in which an ICE would occur in converting`	`! Tests the fix for PR29284 in which an ICE would occur in converting`
`! the call to a suboutine with an assumed character length, optional`	`! the call to a suboutine with an assumed character length, optional`
`! dummy that is not present.`	`! dummy that is not present.`
`!`	`!`
`! Contributed by Rakuen Himawari`	`! Contributed by Rakuen Himawari`
`!`	`!`
`MODULE foo`	`MODULE foo`
`CONTAINS`	`CONTAINS`
`SUBROUTINE sub1(a)`	`SUBROUTINE sub1(a)`
`CHARACTER (LEN=*), OPTIONAL :: a`	`CHARACTER (LEN=*), OPTIONAL :: a`
`WRITE(,) 'foo bar'`	`WRITE(,) 'foo bar'`
`END SUBROUTINE sub1`	`END SUBROUTINE sub1`

`SUBROUTINE sub2`	`SUBROUTINE sub2`
`CALL sub1()`	`CALL sub1()`
`END SUBROUTINE sub2`	`END SUBROUTINE sub2`

`END MODULE foo`	`END MODULE foo`
`! { dg-final { cleanup-modules "foo" } }`	`! { dg-final { cleanup-modules "foo" } }`