代码搜索：contained
找到约 5,885 项符合「contained」的源代码
代码结果 5,885
www.eeworm.com/read/162614/5523379
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
www.eeworm.com/read/162614/5526491
f90 contained_1.f90
! PR15986
! Siblings may be used as actual arguments, in which case they look like
! variables during parsing. Also checks that actual variables aren't replaced
! by siblings with the same name
! { d
www.eeworm.com/read/292144/3957857
erl orber_ifr_contained.erl
%%--------------------------------------------------------------------
%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this fi
www.eeworm.com/read/375190/2737126
cpp test_contained_class.cpp
/////////1/////////2/////////3/////////4/////////5/////////6/////////7/////////8
// test_contained_class.cpp
// (C) Copyright 2002 Robert Ramey - http://www.rrsd.com .
// Use, modification and distr
www.eeworm.com/read/366702/2873266
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/366702/2873296
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/366702/2873347
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/366702/2873355
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/366702/2873358
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