代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/233448/4678852
f90 allocate.f90
! Test allocation and deallocation.
program test_allocate
call t1 (.true.)
call t1 (.false.)
call t2
contains
! Implicit deallocation and saved aloocated variables.
subroutine t1(first)
real,
www.eeworm.com/read/233448/4681626
f90 common_pointer_1.f90
! { dg-do run }
! PR13415
! Test pointer variables in common blocks.
subroutine test
implicit none
real, pointer :: p(:), q
common /block/ p, q
if (any (p .ne. (/1.0, 2.0/)) .or. (q .ne. 42.
www.eeworm.com/read/233448/4683722
c c99-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/233448/4683928
c c90-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/227686/4769594
nt test018-in.nt
# Input file for SeRQL CfwQuery test
# description: implicit join on all three variables in a triple pattern.
"foo".
www.eeworm.com/read/190666/5173827
c typename11.c
// Build don't link:
// Special g++ Options: -Wno-deprecated
template
struct S {
struct X {};
};
template
S::X f(T, U) { // WARNING - implicit typ
www.eeworm.com/read/190666/5176181
f 970915-0.f
* fixed by patch to safe_from_p to avoid visiting any SAVE_EXPR
* node twice in a given top-level call to it.
* (JCB com.c patch of 1998-06-04.)
SUBROUTINE TSTSIG11
IMPLICIT COMPLEX (A-Z)
www.eeworm.com/read/190666/5179360
c c99-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/190666/5179379
c c90-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/162614/5523213
f90 intrinsic_minmax.f90
! Program to test min and max intrinsics
program intrinsic_minmax
implicit none
integer i, j, k, m
real r, s, t, u
i = 1
j = -2
k = 3
m = 4
if (min (i, k) .ne. 1) call abort