代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523349
f pr24136.f
subroutine electra(ro,t,ye,ee,pe,se
a ,eer,eet,per,pet,ser,set,keyps)
implicit real*8 (a-h,o-z)
common /nunu/ nu,dnudr,dnudb,eta,detadnu,nup
data face
www.eeworm.com/read/162614/5526008
f90 large_real_kind_2.f90
! { dg-do run }
! { dg-require-effective-target fortran_large_real }
! Testing library calls on large real kinds (larger than kind=8)
implicit none
integer,parameter :: k = selected_real_kind (p
www.eeworm.com/read/162614/5526046
f90 char_pointer_dummy.f90
! { dg-do run }
program char_pointer_dummy
! Test character pointer dummy arguments, required
! to fix PR16939 and PR18689
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
character*
www.eeworm.com/read/162614/5526073
f90 char_pointer_assign.f90
! { dg-do run }
program char_pointer_assign
! Test character pointer assignments, required
! to fix PR18890 and PR21297
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
character*4,
www.eeworm.com/read/162614/5526090
f90 read_noadvance.f90
! { dg-do run }
! pr24719, non-advancing read should read more than one line
! test contributed by jerry delisle
implicit none
character(1) :: chr
character(2
www.eeworm.com/read/162614/5526110
f90 der_array_1.f90
! { dg-do run }
! Test derived type constructors for derived types containing arrays.
! PR16919
program der_array_1
implicit none
integer n
integer m
! The 4 components here test known shape a
www.eeworm.com/read/162614/5526141
f90 boz_1.f90
! { dg-do run }
! Test the boz handling
program boz
implicit none
integer(1), parameter :: b1 = b'00000001'
integer(2), parameter :: b2 = b'0101010110101010'
integer(4), parameter :: b4
www.eeworm.com/read/162614/5526163
f90 arrayio_derived_1.f90
! { dg-do run }
! PR 24862: IO for arrays of derived type handled incorrectly.
program arrayio_derived_1
implicit none
type tp
integer :: i
character(len=1) :: c
end type tp
type(tp)
www.eeworm.com/read/162614/5526252
f90 array_constructor_11.f90
! Like array_constructor_6.f90, but check iterators with non-default stride,
! including combinations which lead to zero-length vectors.
! { dg-do run }
program main
implicit none
call build (77)
www.eeworm.com/read/162614/5526312
f90 reshape.f90
! { dg-do run }
! This tests a few reshape PRs.
program resh
implicit none
real, dimension (2,3) :: a,c
real, dimension (12) :: b
type foo
real :: r
end type foo
type(foo), dimension (