URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 816 |
Rev 826 |
! Test assumed length character functions.
|
! Test assumed length character functions.
|
|
|
character*(*) function f()
|
character*(*) function f()
|
f = "Hello"
|
f = "Hello"
|
end function
|
end function
|
|
|
character*6 function g()
|
character*6 function g()
|
g = "World"
|
g = "World"
|
end function
|
end function
|
|
|
program straret
|
program straret
|
character*6 f, g
|
character*6 f, g
|
character*12 v
|
character*12 v
|
|
|
|
|
v = f() // g()
|
v = f() // g()
|
if (v .ne. "Hello World ") call abort ()
|
if (v .ne. "Hello World ") call abort ()
|
end program
|
end program
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.