Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
PR40660.f90
blob: dbd533961553aa655841aa8b57ffb9feb58cf659 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fdump-tree-original-lineno"
}
!
!
PR fortran
/
40660
PROGRAM test
INTEGER
,
DIMENSION
(
3
)
::
a1
,
a2
a1
=
1
PRINT
*,
a1
a2
=
2
end
program test
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
": 3\] _gfortran"
0
"original"
}
}