OpenCores
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 694

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.