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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strret.f90] - Blame information for rev 707

Go to most recent revision | Details | Compare with Previous | View Log


! Program to test caracter string return values
function test ()
   implicit none
   character(len=10) :: test
   test = "World"
end function
 
function test2 () result (r)
   implicit none
   character(len=5) :: r
   r = "Hello"
end function
 
program strret
   implicit none
   character(len=15) :: s
   character(len=10) :: test
   character(len=5) :: test2
 
   s = test ()
   if (s .ne. "World") call abort
 
   s = "Hello " // test ()
   if (s .ne. test2 () //" World") call abort
end

Line No.	Rev	Author	Line
1	695	jeremybenn	`! Program to test caracter string return values`
2			`function test ()`
3			`implicit none`
4			`character(len=10) :: test`
5			`test = "World"`
6			`end function`
7
8			`function test2 () result (r)`
9			`implicit none`
10			`character(len=5) :: r`
11			`r = "Hello"`
12			`end function`
13
14			`program strret`
15			`implicit none`
16			`character(len=15) :: s`
17			`character(len=10) :: test`
18			`character(len=5) :: test2`
19
20			`s = test ()`
21			`if (s .ne. "World") call abort`
22
23			`s = "Hello " // test ()`
24			`if (s .ne. test2 () //" World") call abort`
25			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strret.f90] - Blame information for rev 707