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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! PR fortran/23663
      function i (n)
      i = n
      i = max (i, 6)
      return
      entry j (n)
      j = n
      j = max (j, 3)
      end
 
      program entrytest
      if (i (8).ne.8) call abort
      if (i (4).ne.6) call abort
      if (j (0).ne.3) call abort
      if (j (7).ne.7) call abort
      end

Line No.	Rev	Author	Line
1	695	jeremybenn	`! PR fortran/23663`
2			`function i (n)`
3			`i = n`
4			`i = max (i, 6)`
5			`return`
6			`entry j (n)`
7			`j = n`
8			`j = max (j, 3)`
9			`end`
10
11			`program entrytest`
12			`if (i (8).ne.8) call abort`
13			`if (i (4).ne.6) call abort`
14			`if (j (0).ne.3) call abort`
15			`if (j (7).ne.7) call abort`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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