代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876776
f90 bind_c_dts.f90
! { dg-do run }
! { dg-additional-sources bind_c_dts_driver.c }
module bind_c_dts
use, intrinsic :: iso_c_binding
implicit none
type, bind(c) :: MYFTYPE_1
integer(c_int) :: i, j
real(
www.eeworm.com/read/366702/2876784
f03 bind_c_usage_10.f03
! { dg-do run }
! { dg-additional-sources bind_c_usage_10_c.c }
!
! PR fortran/34079
!
! Check BIND(C) for ENTRY
!
module mod
use iso_c_binding
implicit none
contains
subroutine sub1(j) bind(c, na
www.eeworm.com/read/366702/2876813
f90 read_2.f90
! { dg-do run }
!
! PR fortran/34404
!
! Contributed by Joost VandeVondele.
!
implicit none
complex :: x
character(len=80) :: t="(1.0E-7,4.0E-3)"
read(t,*) x
if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-
www.eeworm.com/read/366702/2876820
f90 optional_dim_3.f90
! { dg-do run }
! PR34540 cshift, eoshift, kind=1 and kind=2 arguments.
! Test case thanks to Thomas Koenig.
module tst_foo
implicit none
contains
subroutine tst_optional(a,n1,n2)
integer(kind
www.eeworm.com/read/366702/2876929
f90 global_vars_c_init.f90
! { dg-do run }
! { dg-additional-sources global_vars_c_init_driver.c }
module global_vars_c_init
use, intrinsic :: iso_c_binding, only: c_int
implicit none
integer(c_int), bind(c, name='i') ::
www.eeworm.com/read/366702/2876933
f90 temporary_1.f90
! { dg-do run }
! PR 27662. Don't zero the first stride to indicate a temporary. It
! may be used later.
program pr27662
implicit none
real(kind=kind(1.0d0)), dimension (2, 2):: x, y, z;
integer i,
www.eeworm.com/read/366702/2877113
f03 test_common_binding_labels_2.f03
! { dg-do compile }
module test_common_binding_labels_2
use, intrinsic :: iso_c_binding, only: c_double, c_int
implicit none
common /mycom/ r, s
real(c_double) :: r
real(c_double) :: s
www.eeworm.com/read/366702/2877353
f90 char_spread_1.f90
! Test spread for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 10, n3 = 4, slen = 9
character (len = slen), dimension (n1, n3) :: a
integer :
www.eeworm.com/read/366702/2877441
f90 c_assoc.f90
! { dg-do run }
! { dg-additional-sources test_c_assoc.c }
module c_assoc
use, intrinsic :: iso_c_binding
implicit none
contains
function test_c_assoc_0(my_c_ptr) bind(c)
use, intrinsic ::
www.eeworm.com/read/366702/2877483
f90 convert_implied_open.f90
! { dg-do run }
! { dg-options "-fconvert=swap" }
! PR 26735 - implied open didn't use to honor -fconvert
program main
implicit none
integer (kind=4) :: i1, i2, i3
write (10) 1_4
close (10)