代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523193
f90 data_2.f90
! Check more array variants of the data statement
program data_2
implicit none
type t
integer i
end type t
integer, dimension(3) :: a
type (t), dimension(3) :: b
integer, dimension(2,2
www.eeworm.com/read/162614/5523199
f90 where_8.f90
program where_8
implicit none
type t
logical valid
integer :: s
integer, dimension(8) :: p
end type
type (t), dimension (5) :: v
integer i
v(:)%valid = (/.true., .true., .fals
www.eeworm.com/read/162614/5523296
f90 iolength_1.f90
! Test that IOLENGTH works for dynamic arrays
program iolength_1
implicit none
! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?)
integer, parameter :: int32 = selected_int
www.eeworm.com/read/162614/5523307
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/162614/5523359
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/162614/5525991
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/162614/5525999
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/162614/5526089
f90 enum_9.f90
! { dg-do run }
! { dg-options "-fshort-enums" }
! Program to test enumerations when option -fshort-enums is given
program main
implicit none
enum, bind (c) ! { dg-warning "New in Fortran 2003"
www.eeworm.com/read/162614/5526151
f90 array_alloc_1.f90
! PR 21104. Make sure that either f() or its caller will allocate
! the array data. We've decided to make the caller allocate it.
! { dg-do run }
program main
implicit none
call test (f ())
cont
www.eeworm.com/read/162614/5526237
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