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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_11.f90] - Blame information for rev 826

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	303	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-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_11.f90] - Blame information for rev 826