代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873387
f90 contained_1.f90
! Obscure failure that disappeared when the parameter was removed.
! Works OK now.
module mymod
implicit none
contains
subroutine test(i)
implicit none
integer i
end subroutine
end m
www.eeworm.com/read/366702/2876001
f03 binding_label_tests_14.f03
! { dg-do run }
subroutine display() bind(c)
implicit none
end subroutine display
program main
implicit none
interface
subroutine display() bind(c)
end subroutine display
end interf
www.eeworm.com/read/366702/2876537
f90 char_result_11.f90
! { dg-do link }
! PR 23675: Character function of module-variable length
! PR 25716: Implicit kind conversions in in expressions written to *.mod-files.
module cutils
implicit none
private
www.eeworm.com/read/366702/2876987
f90 array_constructor_20.f90
! { dg-do compile }
!
! PR fortran/34784, in which the intrinsic expression would be
! given the implicit type.
!
! Contributed by Dick Hendrickson
!
MODULE m
implicit c
www.eeworm.com/read/378186/9242863
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function
www.eeworm.com/read/378186/9242891
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function
www.eeworm.com/read/378186/9242922
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function
www.eeworm.com/read/378186/9242949
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function
www.eeworm.com/read/378186/9243025
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function
www.eeworm.com/read/378186/9243054
f wclock.f
Function wclock() Result (walltime)
! ----------------------------------------------------------------------
Use numerics
Implicit None
! --- Function