Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
minmaxloc_11.f90
blob: ff720a1c0ed103480d3dd2edeb0a7bdf69a3a2dc [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program main
character
(
len
=
3
),
dimension
(
2
)
::
a
a
(
1
)
=
'aaa'
a
(
2
)
=
'bbb'
if
(
maxloc
(
a
,
dim
=
1
)
/=
2
)
STOP
1
if
(
minloc
(
a
,
dim
=
1
)
/=
1
)
STOP
2
end
program main