Sign in
llvm
/
llvm-archive
/
2daab64c45d5de588f673052552a44992cfe1157
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
assign_1.f90
blob: 81aaeff2d324152b3275d7314340b7f6cd1d0b74 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Option
passed to avoid excess errors
from
obsolete warning
!
{
dg
-
options
"-w"
}
integer i
(
5
)
assign
1000
to i
!
{
dg
-
error
"scalar default INTEGER"
}
1000
continue
end