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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [mloc.f90] - Blame information for rev 12

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	12	jlechner	`! 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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [mloc.f90] - Blame information for rev 12