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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [mloc.f90] - Blame information for rev 801

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


! from PR 14928
! we used to not accept the two argument variant of MINLOC and MAXLOC when
! the MASK keyword was omitted.
  real b(10)
  integer c(1)
  c = minloc(b,b<0)
  c = maxloc(b,b>0)
end

Line No.	Rev	Author	Line
1	695	jeremybenn	`! from PR 14928`
2			`! we used to not accept the two argument variant of MINLOC and MAXLOC when`
3			`! the MASK keyword was omitted.`
4			`real b(10)`
5			`integer c(1)`
6			`c = minloc(b,b<0)`
7			`c = maxloc(b,b>0)`
8			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [mloc.f90] - Blame information for rev 801