代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877480
f90 char_length_3.f90
! { dg-do compile }
! PR fortran/25071
! Check if actual argument is too short
!
program test
implicit none
character(len=10) :: v
character(len=10), target ::
www.eeworm.com/read/366702/2877546
f90 use_only_3.f90
! { dg-do compile }
! This tests the patch for PR34975, in which 'n', 'ipol', and 'i' would be
! determined to have 'no IMPLICIT type'. It turned out to be fiendishly
! difficult to write a testcase
www.eeworm.com/read/366702/2883431
c redecl-7.c
/* Test for multiple declarations and composite types. Diagnosis of
completion incompatible with implicit initializer. */
/* Origin: Joseph Myers */
/* { dg-do compile } *
www.eeworm.com/read/366702/2884631
c redecl-8.c
/* Test for multiple declarations and composite types. Diagnosis of
completion incompatible with implicit initializer. */
/* Origin: Joseph Myers */
/* { dg-do compile } *
www.eeworm.com/read/162614/5530671
c redecl-7.c
/* Test for multiple declarations and composite types. Diagnosis of
completion incompatible with implicit initializer. */
/* Origin: Joseph Myers */
/* { dg-do compile } *
www.eeworm.com/read/162614/5531438
c redecl-8.c
/* Test for multiple declarations and composite types. Diagnosis of
completion incompatible with implicit initializer. */
/* Origin: Joseph Myers */
/* { dg-do compile } *
www.eeworm.com/read/367160/9769320
f sstemr.f
SUBROUTINE SSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU,
$ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK,
$ IWORK, LIWORK, INFO )
IMPLICIT
www.eeworm.com/read/367160/9769464
f slaneg.f
FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R )
IMPLICIT NONE
INTEGER SLANEG
*
* -- LAPACK auxiliary routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berke
www.eeworm.com/read/367160/9769659
f cstegr.f
SUBROUTINE CSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU,
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK,
$ LIWORK, INFO )
IMPLICIT NONE
*
*
* --
www.eeworm.com/read/367160/9770464
f sstegr.f
SUBROUTINE SSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU,
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK,
$ LIWORK, INFO )
IMPLICIT NONE
*
*
* --