Sign in
gnu
/
gcc
/
f120196382ac5ac49ec4a60f8abad42f22d45a91
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
associate_59.f90
blob: 2da97731d395f95b0f7124fc5887d5fc8ad861c9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
103590
-
ICE
:
find_array_spec
():
Missing
spec
!
Contributed
by
G
.
Steinmetz
program p
associate
(
a
=>
1
)
print
*,
[
character
(
a
(
1
))
::
'1'
]
!
{
dg
-
error
"Scalar INTEGER expression"
}
end
associate
end