代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/305277/3778520
scala t0438.scala
class Foo {
implicit def pair2fun2[A, B, C](f: (A, B) => C) =
{p: (A, B) => f(p._1, p._2) }
def foo(f: ((Int, Int)) => Int) = f
def bar(x: Int, y: Int) = x + y
foo({ (x: Int, y: Int)
www.eeworm.com/read/288222/4008762
f getabc.f
subroutine getabc(m,omg,wvn,a,b,c,d,e,f)
implicit none
integer m
COMPLEX*16 omg,wvn
COMPLEX*16 a, b, c, d, e, f
integer NL
parameter (NL=100)
common/timodel/H(NL),TA(NL),TC(NL),TL(NL),TN(NL),T
www.eeworm.com/read/388600/2548923
f90 afdmf90.f90
! time-domain acoustic FD modeling
program AFDMf90
use rsf
implicit none
! Laplacian coefficients
real :: c0=-30./12.,c1=+16./12.,c2=- 1./12.
logical :: verb ! verbose flag
t
www.eeworm.com/read/366702/2873299
f90 strarray_4.f90
program strarray_4
character(len=5), dimension(2) :: c
c(1) = "Hello"
c(2) = "World"
call foo1(c)
call foo2(c, 2)
call foo3(c, 5, 2)
contains
subroutine foo1(a)
implicit none
chara
www.eeworm.com/read/366702/2873338
f90 intrinsic_dprod.f90
! Program to test DPROD intrinsic
program intrinsic_dprod
implicit none
real r, s, t
double precision dp
! 6d60 doesn't fit in a 4-byte real
r = 2e30
s = 4e30
dp = dprod (r, s)
www.eeworm.com/read/366702/2876044
f90 pr33794.f90
! { dg-do run }
! { dg-options "-O2 -ffast-math -mfpmath=387" { target { { i?86-*-* x86_64-*-* } && lp64 } } }
! { dg-options "-O2 -ffast-math" }
module scc_m
implicit none
integer, parameter ::
www.eeworm.com/read/366702/2876340
f90 record_marker_1.f90
! { dg-do run }
! { dg-options "-frecord-marker=4" }
program main
implicit none
integer(kind=4) :: i1, i2, i3
open(15,form="UNFORMATTED")
write (15) 1_4
close (15)
open (15,form="UNFORMA
www.eeworm.com/read/366702/2876449
f03 c_ptr_tests_8.f03
! { dg-do run }
! { dg-additional-sources c_ptr_tests_8_funcs.c }
program main
use iso_c_binding, only: c_ptr
implicit none
interface
function create() bind(c)
use iso_c_binding, only: c_ptr
www.eeworm.com/read/366702/2876645
f90 matmul_2.f90
!{ dg-do run }
! PR libfortran/26985
program matmul_2
implicit none
integer :: a(2,9), b(9,7), c(2,7)
integer :: i, j
a = 1
b = 2
c = 1789789
c(:,1:7:2) = matmul(a,b(:,1:7:2))
if (c(
www.eeworm.com/read/366702/2876899
f03 bind_c_dts_3.f03
! { dg-do compile }
module bind_c_dts_3
use, intrinsic :: iso_c_binding
implicit none
TYPE, bind(c) :: t
integer(c_int) :: i
end type t
type :: my_c_type_0 ! { dg-error "must have the BIND attribu