Sign in
gnu
/
gcc
/
4a0fed0c0c7241562eaa5f1a4c916b689429ad86
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr93484_1.f90
blob: 3b6dbc9ad79eb3880fb5dc797ad2da23a1b3ac88 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
program p
implicit
none
integer
::
x
(
4
)
=
[
1
,
2
,
3
,
4
]
print
*,
[
real
(
x
(
k
))]
!
{
dg
-
error
"Symbol 'k' at .1. has no IMPLICIT type"
}
end