代码搜索：contained
找到约 5,885 项符合「contained」的源代码
代码结果 5,885
www.eeworm.com/read/233448/4678720
f90 contained.f90
program contained
implicit none
integer i
i = 0;
call testproc (40)
if (i .ne. 42) call abort
contains
subroutine testproc (p)
implicit none
integer p
if (p .ne.
www.eeworm.com/read/162614/5523186
f90 contained.f90
program contained
implicit none
integer i
i = 0;
call testproc (40)
if (i .ne. 42) call abort
contains
subroutine testproc (p)
implicit none
integer p
if (p .ne.
www.eeworm.com/read/366702/2873170
f90 contained.f90
program contained
implicit none
integer i
i = 0;
call testproc (40)
if (i .ne. 42) call abort
contains
subroutine testproc (p)
implicit none
integer p
if (p .ne.
www.eeworm.com/read/233448/4678798
f90 contained_3.f90
! Program to test contained functions calling their siblings.
! This is tricky because we don't find the declaration for the sibling
! function until after the caller has been parsed.
program containe
www.eeworm.com/read/233448/4678824
f90 contained2.f90
! Program to check resolution of symbols with the same name
program contained2
implicit none
integer var1
var1 = 42
if (f1() .ne. 1) call abort
call f2()
if (var1 .ne. 42) call a
www.eeworm.com/read/233448/4678866
f90 contained_5.f90
! Function returning an array continaed in a module. Caused problems 'cos
! we tried to add the dummy return vars to the parent scope.
Module contained_5
contains
FUNCTION test ()
REAL, DIMENSION
www.eeworm.com/read/233448/4678872
f90 contained_4.f90
! Check contained functions with the same name.
module contained_4
contains
subroutine foo1()
call bar()
contains
subroutine bar()
end subroutine bar
end subroutine foo1
subrout
www.eeworm.com/read/233448/4678874
f90 contained_2.f90
! Arrays declared in parent but used in the child.
program error
implicit none
integer, dimension (10) :: a
contains
subroutine test()
implicit none
a(1) = 0
end subroutine
end
www.eeworm.com/read/233448/4678885
f90 contained_3.f90
! Program to check using parent variables in more than one contained function
program contained_3
implicit none
integer var
contains
subroutine one
var = 1
end subroutine
subrouti
www.eeworm.com/read/233448/4678892
f90 contained_1.f90
! Obscure failure that disappeared when the parameter was removed.
! Works OK now.
module mymod
implicit none
contains
subroutine test(i)
implicit none
integer i
end subroutine
end m