代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873301
f90 nan_inf_fmt.f90
!pr 12839- F2003 formatting of Inf /Nan
implicit none
character*40 l
character*12 fmt
real zero, pos_inf, neg_inf, nan
zero = 0.0
! need a better way of generating
www.eeworm.com/read/366702/2873360
f90 convert.f90
! Program to test conversion. Does not actualy test the generated code
program convert
implicit none
integer(kind=4) i
integer(kind=8) m
real(kind=4) r
real(kind=8) q
complex(kind=4
www.eeworm.com/read/366702/2876036
f90 pr18122.f90
! { dg-do run }
! test namelist with scalars and arrays.
! Based on example provided by thomas.koenig@online.de
program sechs_w
implicit none
integer, parameter :: dr=selected_real_kind(15)
i
www.eeworm.com/read/366702/2876076
f90 automatic_char_len_2.f90
! { dg-do run }
! { dg-options "-O0" }
!
! Tests fix for PR21459 - This is the original example.
!
program format_string
implicit none
character(len=*), parameter :: rform='(F15.5)', &
cform="('
www.eeworm.com/read/366702/2876085
f03 c_ptr_tests_11.f03
! { dg-do compile }
! Verify that initialization of c_ptr components works.
module fgsl
use, intrinsic :: iso_c_binding
implicit none
type, public :: fgsl_matrix
private
type(c_ptr) ::
www.eeworm.com/read/366702/2876126
f90 streamio_7.f90
! { dg-do run }
! PR25828 Stream IO test 7, Array writes and reads.
! Contributed by Jerry DeLisle .
program streamtest
implicit none
character(1) :: lf = char(10)
chara
www.eeworm.com/read/366702/2876256
f03 c_loc_tests_9.f03
! { dg-do compile }
subroutine aaa(in)
use iso_c_binding
implicit none
CHARACTER(KIND=C_CHAR), DIMENSION(*), TARGET :: in
type(c_ptr) :: cptr
cptr = c_loc(in)
end subroutine aaa
www.eeworm.com/read/366702/2876333
f90 streamio_6.f90
! { dg-do run }
! PR25828 Stream IO test 6, random writes and reads.
! Contributed by Jerry DeLisle .
program streamio_6
implicit none
integer, dimension(100) :: a
charact
www.eeworm.com/read/366702/2876391
f90 nearest_3.f90
! { dg-do run }
! { dg-options "-pedantic-errors -mieee" { target sh*-*-* } }
!
! PR fortran/34209
!
! Test run-time implementation of NEAREST
!
program test
implicit none
real(4), volatile :: r4
www.eeworm.com/read/366702/2876393
f90 array_1.f90
! { dg-do run }
! PR 15553 : the array used to be filled with garbage
! this problem disappeared between 2004-05-20 and 2004-09-15
program arrpack
implicit none
double precision x(10,10)
inte