URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
! Program to test procudure args
|
! Program to test procudure args
|
subroutine test (a, b)
|
subroutine test (a, b)
|
integer, intent (IN) :: a
|
integer, intent (IN) :: a
|
integer, intent (OUT) :: b
|
integer, intent (OUT) :: b
|
|
|
if (a .ne. 42) call abort
|
if (a .ne. 42) call abort
|
b = 43
|
b = 43
|
end subroutine
|
end subroutine
|
|
|
program args
|
program args
|
implicit none
|
implicit none
|
external test
|
external test
|
integer i, j
|
integer i, j
|
|
|
i = 42
|
i = 42
|
j = 0
|
j = 0
|
CALL test (i, j)
|
CALL test (i, j)
|
if (i .ne. 42) call abort
|
if (i .ne. 42) call abort
|
if (j .ne. 43) call abort
|
if (j .ne. 43) call abort
|
i = 41
|
i = 41
|
CALL test (i + 1, j)
|
CALL test (i + 1, j)
|
end program
|
end program
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.