代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523156
f90 random_1.f90
! PR15619
! Check that random_seed works as expected.
! Does not check the quality of random numbers, hence should never fail.
program test_random
implicit none
integer, allocatable :: seed(:)
r
www.eeworm.com/read/162614/5523167
f90 plusconst_1.f90
! PR14005
! The GMP conversion routines object to a leading "+"
program plusconst_1
implicit none
real p
integer i
data p /+3.1415/
data i /+42/
real :: q = +1.234
integer :: j = +100
www.eeworm.com/read/162614/5523210
f90 scalarize.f90
! Program to test the scalarizer
program testarray
implicit none
integer, dimension (6, 5) :: a, b
integer n
a = 0
do n = 1, 5
a(4, n) = n
end do
b(:, 5:1:-1) = a
a(1:5
www.eeworm.com/read/162614/5523252
f90 iolength_3.f90
! Test that IOLENGTH works for io list containing more than one entry
program iolength_3
implicit none
integer, parameter :: &
! 32 bit, i.e. 4 byte integer (every gcc architecture should
www.eeworm.com/read/162614/5523292
f90 power.f90
! Program to test the power (**) operator
program testpow
implicit none
real(kind=4) r, s, two
real(kind=8) :: q
complex(kind=4) :: c, z
real, parameter :: del = 0.0001
integer i, j
www.eeworm.com/read/162614/5523322
f90 der_type.f90
! Program to test derived types
program der_type
implicit none
type t1
integer, dimension (4, 5) :: a
integer :: s
end type
type my_type
character(20) :: c
type
www.eeworm.com/read/162614/5523376
f90 defined_type_2.f90
!This used to ICE as we chose the wrong type for the
! temporary to hold type%x
! fortran/18157
MODULE bug
IMPLICIT NONE
TYPE :: my_type
REAL :: x
END TYPE
TYPE (my_type), DIMENSION(3) ::
www.eeworm.com/read/162614/5526022
f90 inquire_5.f90
! { dg-do run }
! pr19314 inquire(..position=..) segfaults
! test by Thomas.Koenig@online.de
! bdavis9659@comcast.net
implicit none
character*20 chr
open(7,STATUS='SCRATCH')
www.eeworm.com/read/162614/5526115
f90 pure_byref_1.f90
! { dg-do run }
! PR 22607: PURE/ELEMENTAL return-by-reference functions
program main
implicit none
character(2), dimension(2) :: a, b
a = 'ok'
b = fun(a)
if (.not.all(b == 'ok')) call abort
www.eeworm.com/read/162614/5526180
f90 enum_3.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c) ! { dg-warning "New in Fortran 2003" }
enumerator :: red, black = 2.2 ! { dg-error "ini