mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
25 lines
307 B
Fortran
25 lines
307 B
Fortran
! { 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
|