Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
assign.f90
blob: 516a3d7632ab91c7adcb6cac7fa7f9a0973b432d [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Program
to test
ASSIGNing
a label to common variable
.
PR18827
.
program test
integer i
common i
assign
2000
to i
!
{
dg
-
warning
"Obsolete: ASSIGN statement"
}
2000
continue
end