Sign in
gnu
/
gcc
/
refs/heads/devel/c++-contracts
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr50069_1.f90
blob: 125d052a9cd2447fb00b983ad374ba692c4a1f1a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
implicit
none
integer i
character
(
LEN
=
6
)
::
a
(
1
)
=
"123456"
forall
(
i
=
3
:
4
)
a
(
1
)(
i
:
i
+
2
)
=
a
(
1
)(
i
-
2
:
i
)
!
print
*,
a
!
displays
'12@'
must be
'121234'
IF
(
a
(
1
)
.
ne
.
"121234"
)
STOP
1
end
