Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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
