Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
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