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