Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr77260_1.f90
blob: 76ef3cffced4282e961497f996d25c408d308e4c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wall"
}
module
foo
implicit
none
private
public
f1
,
f2
contains
integer
function
f1
()
integer f2
f1
=
5
entry f2
f2
=
8
end
function
end
module
program test
use
foo
implicit
none
print
*,
f2
()
end
program