Sign in
llvm
/
llvm-archive
/
261104aacb9ea48cf3a0dc7bfb461760b894944b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
assign_5.f90
blob: 632bd0917ee6362a3f7e3f38a6933ed17df4cbb8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Assign
a label to a dummy argument
.
!
Option
passed to avoid excess errors
from
obsolete warning
!
{
dg
-
options
"-w"
}
subroutine s1
(
a
)
integer a
assign
777
to a
go to a
777
continue
end
program test
call s1
(
1
)
end