代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/233522/4667986
txx vcl_set.txx
#ifndef vcl_set_txx_
#define vcl_set_txx_
// -*- c++ -*-
#include "vcl_set.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_set.txx"
#elif !VCL_USE_NATIVE_STL
# include "emulation/vcl_s
www.eeworm.com/read/233522/4668026
txx vcl_map.txx
#ifndef vcl_map_txx_
#define vcl_map_txx_
// -*- c++ -*-
#include "vcl_map.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_map.txx"
#elif !VCL_USE_NATIVE_STL
# include "emulation/vcl_m
www.eeworm.com/read/233448/4678750
f90 math.f90
! Program to test mathematical intrinsics
subroutine dotest (n, val4, val8, known)
implicit none
real(kind=4) val4, known
real(kind=8) val8
integer n
if (abs (val4 - known) .gt. 0.001)
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/4681606
f90 do_1.f90
! { dg-do run }
! Program to check corner cases for DO statements.
program do_1
implicit none
integer i, j
! limit=HUGE(i), step 1
j = 0
do i = HUGE(i) - 10, HUGE(i), 1
j = j + 1
end
www.eeworm.com/read/162614/5523218
f90 math.f90
! Program to test mathematical intrinsics
subroutine dotest (n, val4, val8, known)
implicit none
real(kind=4) val4, known
real(kind=8) val8
integer n
if (abs (val4 - known) .gt. 0.001)
www.eeworm.com/read/162614/5525985
f90 char_transpose_1.f90
! Test transpose for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, slen = 9
character (len = slen), dimension (n1, n2) :: a
integer :: i1,
www.eeworm.com/read/162614/5526282
f90 do_1.f90
! { dg-do run }
! Program to check corner cases for DO statements.
program do_1
implicit none
integer i, j
! limit=HUGE(i), step 1
j = 0
do i = HUGE(i) - 10, HUGE(i), 1
j = j + 1
end
www.eeworm.com/read/162614/5526462
f90 mvbits_1.f90
! PR 25577
! MVBITS didn't work correctly for integer types wider than a C int
! The testcase is based on the one Dale Ranta posted in the bug report
implicit none
integer(1) i1,j1
integer(2) i2,j2
in
www.eeworm.com/read/162614/5526564
f90 char_pack_2.f90
! Test scalar pack for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, nv = 16, slen = 9
character (len = slen), dimension (n1, n2) :: a
char