代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5526241
f90 assign_func_dtcomp_1.f90
! { dg-do run }
! { dg-options "-O0" }
!
! Test fix for PR18022.
!
! Contributed by Paul Thomas
!
program assign_func_dtcomp
implicit none
type :: mytype
www.eeworm.com/read/162614/5526249
f90 shift-kind.f90
! { dg-do compile }
! PR 22143: We didn' have shift arguments to eoshift of kind=1
! and kind=2.
program main
implicit none
integer, dimension (3,3) :: a, b, w
integer(kind=2), dimen
www.eeworm.com/read/162614/5526509
f90 array_constructor_7.f90
! Like array_constructor_6.f90, but test for nested iterators.
! { dg-do run }
program main
implicit none
call build (17)
contains
subroutine build (order)
integer :: order, i, j
call t
www.eeworm.com/read/162614/5526521
f90 where_nested_1.f90
! { dg-do compile }
! PR 25423: Nested WHERE constructs.
program nested_where
implicit none
integer :: a(4)
logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), &
ma
www.eeworm.com/read/162614/5526528
f90 pr19928-2.f90
! Related to PR 19928. Check that foo() is only called once per statement.
! { dg-do run }
program main
implicit none
type t
integer, dimension (5) :: field
end type t
type (t), dimension
www.eeworm.com/read/341021/3260544
f openmp_mpilog.f
program test_OpenMP
#ifdef _OPENMP
use omp_lib
#endif
implicit none
include 'mpif.h'
include 'mpe_logf.h'
integer world_size, world_rank, ierr
integer blkA
www.eeworm.com/read/340665/3273280
c friend18.c
// { dg-do run }
// Copyright (C) 2003 Free Software Foundation, Inc.
// Contributed by Nathan Sidwell 26 Mar 2003
// PR 10158. implicit inline template friends ICE'd
temp
www.eeworm.com/read/340665/3273825
c instan1.c
// Build don't run:
// Origin: Mark Mitchell
// Special g++ Options: -fno-implicit-templates
template
struct U {
static int j;
};
template
struct S {
www.eeworm.com/read/340665/3274609
c typename6.c
// We don't try to make implicit typename handle this case.
// Build don't link:
// Special g++ Options:
template
struct A
{
typedef T A_Type;
};
template
struct B : public A
www.eeworm.com/read/340665/3276847
f 19990419-0.f
* Test case Toon submitted, cut down to expose the one bug.
* Belongs in compile/.
SUBROUTINE INIERS1
IMPLICIT LOGICAL(L)
COMMON/COMIOD/ NHIERS1, LERS1
inquire(nhiers1, exist