URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [optional_assumed_charlen_1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { 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" } }`