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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-O -findirect-inlining -fno-guess-branch-probability -finline-functions -finline-small-functions" }
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-do compile }`
2			`! { dg-options "-O -findirect-inlining -fno-guess-branch-probability -finline-functions -finline-small-functions" }`
3			`function more_OK (fcn)`
4			`character(*) more_OK`
5			`character (*), external :: fcn`
6			`more_OK = fcn ()`
7			`end function more_OK`
8			`character(4) :: answer`
9			`character(4), external :: is_OK, more_OK`
10			`answer = more_OK (is_OK)`
11			`contains`
12			`END`

Browse

Tools

Subversion Repositories openrisc

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