代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/240162/4583548
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
www.eeworm.com/read/233448/4671271
c assign1.c
/* { dg-do compile } */
/* { dg-require-visibility "" } */
/* { dg-final { scan-hidden "_ZN1DaSERKS_" } } */
struct B {
B& operator=(const B&);
};
struct D : public B {
// The implicit assignmen
www.eeworm.com/read/233448/4672485
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/233448/4673384
c instan1.c
// { dg-do link }
// { dg-options "-fno-implicit-templates" }
// Origin: Mark Mitchell
template
struct U {
static int j;
};
template
struct S {
stati
www.eeworm.com/read/233448/4678727
f90 data_2.f90
! Check more array variants of the data statement
program data_2
implicit none
type t
integer i
end type t
integer, dimension(3) :: a
type (t), dimension(3) :: b
integer, dimension(2,2
www.eeworm.com/read/233448/4678733
f90 where_8.f90
program where_8
implicit none
type t
logical valid
integer :: s
integer, dimension(8) :: p
end type
type (t), dimension (5) :: v
integer i
v(:)%valid = (/.true., .true., .fals
www.eeworm.com/read/233448/4678818
f90 iolength_1.f90
! Test that IOLENGTH works for dynamic arrays
program iolength_1
implicit none
! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?)
integer, parameter :: int32 = selected_int
www.eeworm.com/read/233448/4678828
f90 nan_inf_fmt.f90
!pr 12839- F2003 formatting of Inf /Nan
implicit none
character*40 l
character*12 fmt
real zero, pos_inf, neg_inf, nan
zero = 0.0
! need a better way of generating
www.eeworm.com/read/233448/4678876
f90 convert.f90
! Program to test conversion. Does not actualy test the generated code
program convert
implicit none
integer(kind=4) i
integer(kind=8) m
real(kind=4) r
real(kind=8) q
complex(kind=4
www.eeworm.com/read/233448/4681505
f90 pr18122.f90
! { dg-do run }
! test namelist with scalars and arrays.
! Based on example provided by thomas.koenig@online.de
program sechs_w
implicit none
integer, parameter :: dr=selected_real_kind(15)
i