mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
14 lines
176 B
Fortran
14 lines
176 B
Fortran
! { dg-do assemble }
|
|
module n
|
|
private u
|
|
contains
|
|
subroutine u
|
|
end subroutine u
|
|
end module n
|
|
module m
|
|
private :: u
|
|
contains
|
|
subroutine u
|
|
end subroutine u
|
|
end module m
|