代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523220
f90 intrinsic_sum.f90
! Program to test the FORALL construct
program testforall
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
logical, dimension (3, 3) :: m, tr
integer i
charac
www.eeworm.com/read/162614/5523250
f90 intrinsic_anyall.f90
! Program to test the ANY and ALL intrinsics
program anyall
implicit none
logical, dimension(3, 3) :: a
logical, dimension(3) :: b
character(len=10) line
a = .false.
if (any(a)) cal
www.eeworm.com/read/162614/5523327
f90 intrinsic_dotprod.f90
! Program to test the DOT_PRODUCT intrinsic
program testforall
implicit none
integer, dimension (3) :: a
integer, dimension (3) :: b
real, dimension(3) :: c
real r
complex, dimension
www.eeworm.com/read/162614/5523368
f90 module_common.f90
! We were incorrectly trying to create a variable for the common block itself,
! in addition to the variables it contains.
module FOO
implicit none
integer I
common /C/I
contains
subroutine BA
www.eeworm.com/read/162614/5526250
f90 pr20086.f90
! { dg-do run }
! PR 20086 - Missing characters in output with hollerith strings
implicit none
character*80 line
write(line,2070)
if (line.ne.' stiffness reformed for thi
www.eeworm.com/read/347503/3170035
s localcom-1.s
! The implicit equation from a datalabel to the main symbol was incorrect
! at one time. This is reasonably close to the original testcase.
.mode SHcompact
start:
nop
nop
nop
nop
nop
nop
nop
www.eeworm.com/read/340665/3266618
s localcom-1.s
! The implicit equation from a datalabel to the main symbol was incorrect
! at one time. This is reasonably close to the original testcase.
.mode SHcompact
start:
nop
nop
nop
nop
nop
nop
nop
www.eeworm.com/read/340665/3273804
c static5.c
// Build don't link:
// Origin: Mark Mitchell
struct S
{
~S();
};
inline void f()
{
static S s;
atexit (0); // ERROR - implicit declaration
}