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

Subversion Repositories openrisc

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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! Test fix of PR28118, in which a substring reference to an`	`! Test fix of PR28118, in which a substring reference to an`
`! actual argument with an array reference would cause a segfault.`	`! actual argument with an array reference would cause a segfault.`
`!`	`!`
`! Contributed by Paul Thomas`	`! Contributed by Paul Thomas`
`!`	`!`
`program gfcbug33`	`program gfcbug33`
`character(12) :: a(2)`	`character(12) :: a(2)`
`a(1) = "abcdefghijkl"`	`a(1) = "abcdefghijkl"`
`a(2) = "mnopqrstuvwx"`	`a(2) = "mnopqrstuvwx"`
`call foo ((a(2:1:-1)(6:)))`	`call foo ((a(2:1:-1)(6:)))`
`call bar ((a(:)(7:11)))`	`call bar ((a(:)(7:11)))`
`contains`	`contains`
`subroutine foo (chr)`	`subroutine foo (chr)`
`character(7) :: chr(:)`	`character(7) :: chr(:)`
`if (chr(1)//chr(2) .ne. "rstuvwxfghijkl") call abort ()`	`if (chr(1)//chr(2) .ne. "rstuvwxfghijkl") call abort ()`
`end subroutine foo`	`end subroutine foo`
`subroutine bar (chr)`	`subroutine bar (chr)`
`character(*) :: chr(:)`	`character(*) :: chr(:)`
`if (trim(chr(1))//trim(chr(2)) .ne. "ghijkstuvw") call abort ()`	`if (trim(chr(1))//trim(chr(2)) .ne. "ghijkstuvw") call abort ()`
`end subroutine bar`	`end subroutine bar`
`end program gfcbug33`	`end program gfcbug33`