代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873206
f90 intrinsic_sum.f90
! Program to test the FORALL construct
program testforall
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
logical, dimension (3, 3) :: m, tr
integer i
charac
www.eeworm.com/read/366702/2873239
f90 intrinsic_anyall.f90
! Program to test the ANY and ALL intrinsics
program anyall
implicit none
logical, dimension(3, 3) :: a
logical, dimension(3) :: b
character(len=10) line
a = .false.
if (any(a)) cal
www.eeworm.com/read/366702/2873243
f90 intrinsic_dummy.f90
! Program to test passing intrinsic functions as actual arguments for
! dummy procedures.
subroutine test (proc)
implicit none
real proc
real a, b, c
a = 1.0
b = sin (a)
c = proc (a
www.eeworm.com/read/366702/2873324
f90 intrinsic_dotprod.f90
! Program to test the DOT_PRODUCT intrinsic
program testforall
implicit none
integer, dimension (3) :: a
integer, dimension (3) :: b
real, dimension(3) :: c
real r
complex, dimension
www.eeworm.com/read/366702/2873361
f90 named_args.f90
! This caused problems because we created a symbol for P while
! trying to parse the argument list as a substring reference.
program named_args
implicit none
integer, parameter :: realdp = selecte
www.eeworm.com/read/366702/2873371
f90 module_common.f90
! We were incorrectly trying to create a variable for the common block itself,
! in addition to the variables it contains.
module FOO
implicit none
integer I
common /C/I
contains
subroutine BA
www.eeworm.com/read/366702/2876040
f90 parameter_array_init_3.f90
! { dg-do compile }
! Test the fix for PR34476 in which an 'out of bounds' error would be
! generated for the array initializations AND the implicit index 'i'
! would be rejected.
!
! Reported by Tobi
www.eeworm.com/read/366702/2876123
f90 private_type_6.f90
! { dg-do compile }
! PR fortran/32460
!
module foomod
implicit none
type :: footype
private
integer :: dummy
end type footype
TYPE :: bartype
integer :: dummy
integer, private
www.eeworm.com/read/366702/2876787
f90 pr20086.f90
! { dg-do run }
! PR 20086 - Missing characters in output with hollerith strings
implicit none
character*80 line
write(line,2070)
if (line.ne.' stiffness reformed for thi
www.eeworm.com/read/366702/2876995
f90 namelist_empty.f90
! pr24584, segfault on namelist reading an empty string
! Contributed by Jerry DeLisle
implicit none
character*20 temp
character(len=10) var
nameli