URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.