Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr78279.f90
blob: cb0175295a172f568d63a5bec8ab18025a1f3731 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Ofast"
}
program p
integer
::
i
real
::
z
(
2
,
4
)
z
=
0.0
do
i
=
1
,
3
if
(
z
(
i
)
>
z
(
1
,
i
+
1
)
)
print
*,
i
!
{
dg
-
error
"mismatch in array reference"
}
end
do
end