OpenCores

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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr19269-1.f90] - Diff between revs 816 and 826

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 816	Rev 826
`program main`	`program main`
`call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))`	`call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))`
`contains`	`contains`
`subroutine test (a)`	`subroutine test (a)`
`character (len = *), dimension (:, :) :: a`	`character (len = *), dimension (:, :) :: a`

`if (size (a, 1) .ne. 2) call abort`	`if (size (a, 1) .ne. 2) call abort`
`if (size (a, 2) .ne. 2) call abort`	`if (size (a, 2) .ne. 2) call abort`
`if (len (a) .ne. 1) call abort`	`if (len (a) .ne. 1) call abort`

`if (a (1, 1) .ne. 'a') call abort`	`if (a (1, 1) .ne. 'a') call abort`
`if (a (2, 1) .ne. 'b') call abort`	`if (a (2, 1) .ne. 'b') call abort`
`if (a (1, 2) .ne. 'c') call abort`	`if (a (1, 2) .ne. 'c') call abort`
`if (a (2, 2) .ne. 'd') call abort`	`if (a (2, 2) .ne. 'd') call abort`
`end subroutine test`	`end subroutine test`
`end program main`	`end program main`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.