mloc.f90 « compile « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/compile/mloc.f90

blob: 8d1d754f585a32b98b84544fbabcb199caedc998 (plain)

! 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