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

Subversion Repositories openrisc_me

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

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_me

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