Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
mloc.f90
blob: 8d1d754f585a32b98b84544fbabcb199caedc998 [
file
] [
log
] [
blame
]
!
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