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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [straret.f90] - Blame information for rev 307

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


! Test assumed length character functions.
 
character*(*) function f()
  f = "Hello"
end function
 
character*6 function g()
  g = "World"
end function
 
program straret
  character*6 f, g
  character*12 v
 
 
  v = f() //  g()
  if (v .ne. "Hello World ") call abort ()
end program

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Test assumed length character functions.`
2
3			`character() function f()`
4			`f = "Hello"`
5			`end function`
6
7			`character*6 function g()`
8			`g = "World"`
9			`end function`
10
11			`program straret`
12			`character*6 f, g`
13			`character*12 v`
14
15
16			`v = f() // g()`
17			`if (v .ne. "Hello World ") call abort ()`
18			`end program`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [straret.f90] - Blame information for rev 307