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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr49179.f90] - Blame information for rev 801

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


! { dg-options " -O -findirect-inlining" }
function more_OK (fcn)
  character(*) more_OK
  character (*), external :: fcn
  more_OK = fcn ()
end function more_OK
  character(4) :: answer
  character(4), external :: is_OK, more_OK
  answer = more_OK (is_OK)
contains
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options " -O -findirect-inlining" }`
2			`function more_OK (fcn)`
3			`character(*) more_OK`
4			`character (*), external :: fcn`
5			`more_OK = fcn ()`
6			`end function more_OK`
7			`character(4) :: answer`
8			`character(4), external :: is_OK, more_OK`
9			`answer = more_OK (is_OK)`
10			`contains`
11			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr49179.f90] - Blame information for rev 801