代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876707
f03 binding_label_tests.f03
! { dg-do compile }
module binding_label_tests
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine c_sub() BIND(c, name = "C_Sub")
print *, 'hello from c_sub'
end subrout
www.eeworm.com/read/366702/2876731
f90 integer_exponentiation_3.f90
! { dg-do run }
! { dg-options "" }
module mod_check
implicit none
interface check
module procedure check_i8
module procedure check_i4
module procedure check_r8
module procedure c
www.eeworm.com/read/366702/2876758
f imag_1.f
! { dg-do compile }
program bug
implicit none
complex(kind=8) z
double precision x,y
z = cmplx(1.e0_8,2.e0_8)
y = imag(z)
y = imagpart(z)
x = realpart(z
www.eeworm.com/read/366702/2876768
f90 unpack_mask_1.f90
! { dg-do run }
! PR 32731 - upack lacked conversion for kind=1 and kind=2 mask
program main
implicit none
character(len=80) line
logical(kind=1),dimension(2,2) :: mask1
logical(kind=1),dimens
www.eeworm.com/read/366702/2877121
f03 binding_label_tests_16.f03
! { dg-do run }
! Verify that the variables 'a' in both modules don't collide.
module m
use iso_c_binding
implicit none
integer(c_int), save, bind(C, name="") :: a = 5
end module m
module n
u
www.eeworm.com/read/366702/2877382
f90 streamio_10.f90
! { dg-do run }
! PR25093 Stream IO test 10
! Contributed by Jerry DeLisle .
! Test case derived from that given in PR by Steve Kargl.
program stream_io_10
implicit none
int
www.eeworm.com/read/366702/2877456
f90 optional_dim_2.f90
! { dg-do run }
! PR33317 CSHIFT/EOSHIFT: Rejects optional dummy for DIM=
! Test case submitted by Jerry DeLisle
program test
implicit none
call sub(bound=.false., dimmy=1_8
www.eeworm.com/read/366702/2877791
f90 cshift_shift_real_1.f90
! { dg-do compile }
! PR 34549 - a real value was accepted for shift.
program main
implicit none
real, dimension(2,2) :: r
data r /1.0, 2.0, 3.0, 4.0/
print *,cshift(r,shift=2.3,dim=1) ! { dg-
www.eeworm.com/read/366702/2881131
c c90-impl-decl-1.c
/* Test for implicit function declaration: in C90 only. */
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */
void
foo (vo
www.eeworm.com/read/366702/2883755
c c90-impl-int-1.c
/* Test for implicit int: in C90 only. */
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */
extern foo;
bar (void) { }