Sign in
gnu
/
gcc
/
0b6b70a0733672600644c8df96942cda5bf86d3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
bounds_check_18.f90
blob: afd0503ef10cf254d4617000d5a017cd19373745 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program main
implicit
none
integer
::
n
real
,
dimension
(
10
)
::
a
n
=
0
call random_number
(
a
)
if
(
any
(
a
(
n
+
1
:
n
+
5
)
>
[
1.0
,
2.0
,
3.0
]))
print
*,
"Hello!"
!
{
dg
-
error
"not conformable"
}
end
program main