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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_13.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests patch for PR29431, which arose from PR29373.`	`! Tests patch for PR29431, which arose from PR29373.`
`!`	`!`
`! Contributed by Tobias Schlueter`	`! Contributed by Tobias Schlueter`
`!`	`!`
`implicit none`	`implicit none`
`CHARACTER(len=6), DIMENSION(2,2) :: a`	`CHARACTER(len=6), DIMENSION(2,2) :: a`

`! Reporters original triggered another error:`	`! Reporters original triggered another error:`
`! gfc_todo: Not Implemented: complex character array`	`! gfc_todo: Not Implemented: complex character array`
`! constructors.`	`! constructors.`

`a = reshape([to_string(1.0), trim("abcdef"), &`	`a = reshape([to_string(1.0), trim("abcdef"), &`
`to_string(7.0), trim("hijklm")], &`	`to_string(7.0), trim("hijklm")], &`
`[2, 2])`	`[2, 2])`
`print *, a`	`print *, a`

`CONTAINS`	`CONTAINS`
`FUNCTION to_string(x)`	`FUNCTION to_string(x)`
`character*6 to_string`	`character*6 to_string`
`REAL, INTENT(in) :: x`	`REAL, INTENT(in) :: x`
`WRITE(to_string, FMT="(F6.3)") x`	`WRITE(to_string, FMT="(F6.3)") x`
`END FUNCTION`	`END FUNCTION`
`end`	`end`