代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242313
f90 utility.f90
module typedef
implicit none
type vector2f
real x,y
end type
type line
type(vector2f) :: a,b
type(vector2f) :: vector
end type
interface operator(+)
module
www.eeworm.com/read/470720/1444832
c explicit1.c
// { dg-do link }
// { dg-options "-fno-implicit-templates" }
template struct C {
~C();
};
template C::~C() {}
struct X {
C *p;
~X() { delete p; }
};
template class
www.eeworm.com/read/470693/1456778
c explicit1.c
// { dg-do link }
// { dg-options "-fno-implicit-templates" }
template struct C {
~C();
};
template C::~C() {}
struct X {
C *p;
~X() { delete p; }
};
template class
www.eeworm.com/read/460526/1560712
f90 utility.f90
module typedef
implicit none
type vector2f
real x,y
end type
type line
type(vector2f) :: a,b
type(vector2f) :: vector
end type
interface operator(+)
module
www.eeworm.com/read/240162/4579893
c explicit1.c
// { dg-do link }
// { dg-options "-fno-implicit-templates" }
template struct C {
~C();
};
template C::~C() {}
struct X {
C *p;
~X() { delete p; }
};
template class
www.eeworm.com/read/233448/4672453
c explicit1.c
// { dg-do link }
// { dg-options "-fno-implicit-templates" }
template struct C {
~C();
};
template C::~C() {}
struct X {
C *p;
~X() { delete p; }
};
template class
www.eeworm.com/read/233448/4678766
f90 alternate_return.f90
program alt_return
implicit none
call myproc (1, *10, 42)
20 continue
call abort ()
10 continue
call myproc(2, *20, 42)
call myproc(3, *20, 42)
contains
subroutine myproc(n, *, i)
integ
www.eeworm.com/read/233448/4678793
f90 intrinsic_bitops.f90
! Program to test intrinsic bitops
program intrinsic_bitops
implicit none
integer(kind=4) :: i, j, k, o, t
integer(kind=8) :: a, b, c
o = 0
i = 2
j = 3
k = 12
if (.not. btest
www.eeworm.com/read/233448/4678802
f90 parameter_1.f90
! Program to test array parameter variables.
program parameter_1
implicit none
integer i
INTEGER, PARAMETER :: ii(10) = (/ (I,I=1,10) /)
REAL, PARAMETER :: rr(10) = ii
do i = 1, 10
i
www.eeworm.com/read/233448/4678850
f90 arithmeticif.f90
! Program to test the arithmetic if statement
function testif (a)
implicit none
integer a, b, testif
if (a) 1, 2, 3
b = 2
goto 4
1 b = -1
goto 4
2 b = 0
goto 4
3 b = 1
4 test