Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
associate_33.f03
blob: 1f87b22e8e48836fbbafd455541e2f2ebd706f1a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
!
Test
the fix
for
PR83898
.
f90
!
!
Contributed
by
G
Steinmetz
<
gscfq@t
-
online
.
de
>
!
program p
associate
(
x
=>
[
'1'
,
'2'
])
if
(
any
(
x
.
ne
.
[
'1'
,
'2'
]))
call abort
end
associate
end