代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876293
f bounds_check_2.f
! { dg-do run }
! { dg-options "-fbounds-check" }
! PR fortran/19777
implicit none
integer npts
parameter (npts=10)
double precision v(npts)
double precis
www.eeworm.com/read/366702/2876337
f90 sibling_dummy_procedure_3.f90
! { dg-do compile }
! This checks the fix for PR 26064
!
! Contributed by Sven Buijssen
module ice
implicit none
contains
subroutine foo()
contains
www.eeworm.com/read/366702/2876341
f03 bind_c_usage_13.f03
! { dg-do compile }
! { dg-options "-fdump-tree-original" }
!
! PR fortran/34079
! Character bind(c) arguments shall not pass the length as additional argument
!
subroutine multiArgTest()
implicit
www.eeworm.com/read/366702/2876463
f90 char_pointer_assign_3.f90
! { dg-do run }
! PR fortran/31803
! Assigning a substring to a pointer
program test
implicit none
character (len = 7), target :: textt
character (len = 7), pointer :: textp
character (len =
www.eeworm.com/read/366702/2876548
f90 proc_decl_5.f90
! { dg-do run }
! PR fortran/33945
!
! PROCEDURE in the interface was wrongly rejected
module modproc
implicit none
interface bar
procedure x
end interface bar
procedure(sub) :: x
interf
www.eeworm.com/read/366702/2876656
f90 allocatable_dummy_3.f90
! { dg-do run }
! PR 28416: Check that allocatable dummies can be passed onwards as non-assumed
! shape arg.
program main
implicit none
integer, allocatable :: a(:)
interface
sub
www.eeworm.com/read/366702/2876914
f90 argument_checking_3.f90
! { dg-do compile }
!
! PR fortran/30940
program test
implicit none
interface
subroutine foo(a)
character(len=1),dimension(:) :: a
end subroutine foo
subroutine bar(a)
character(len=1)
www.eeworm.com/read/366702/2876934
f90 inquire_6.f90
! { dg-do run }
!pr19313 - inquire(..pad=..)
implicit none
! logical debug
! data debug /.TRUE./
character*20 chr
chr=''
! not connected
inquire(7,pad=chr)
! if (
www.eeworm.com/read/366702/2876994
f90 array_4.f90
! { dg-do compile }
! PR fortran/36824
!
! Dimension of tgclist was not recognized as having constant bounds
!
program test
implicit none
integer, dimension( 3 ), parameter :: tgc = (/5, 6, 7 /)
type
www.eeworm.com/read/366702/2877130
f90 spec_expr_3.f90
! { dg-do compile }
! PR fortran/18271
subroutine sub(imax)
implicit none
integer, intent(in) :: imax
real :: aux1(25000+int(0.82*imax))
end subroutine