代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376006/2718091
out cluster.out
--
-- CLUSTER
--
CREATE TABLE clstr_tst_s (rf_a SERIAL PRIMARY KEY,
b INT);
NOTICE: CREATE TABLE will create implicit sequence "clstr_tst_s_rf_a_seq" for serial column "clstr_tst_s.rf_a"
NOTICE: C
www.eeworm.com/read/366702/2873124
f90 t_edit.f90
!pr 14897 T edit descriptor broken
implicit none
character*80 line
WRITE(line,'(T5,A,T10,A,T15,A)')'AA','BB','CC'
if (line.ne.' AA BB CC ') call abort
WRITE(li
www.eeworm.com/read/366702/2873152
f90 intrinsic_integer.f90
! Program to test the real->integer conversion routines.
program intrinsic_integer
implicit none
call test (0.0, (/0, 0, 0, 0/))
call test (0.3, (/0, 1, 0, 0/))
call test (0.7, (/0, 1, 0, 1/)
www.eeworm.com/read/366702/2873201
f90 cmplx.f90
! Test complex munbers
program testcmplx
implicit none
complex(kind=4) c, d
complex(kind=8) z
real(kind=4) x, y
real(kind=8) q
! cmplx intrinsic
x = 3
y = 4
c = cmplx(x,y)
www.eeworm.com/read/366702/2873267
f90 intrinsic_dim.f90
! Program to test the DIM intrinsic
program intrinsic_dim
implicit none
integer i, j
real(kind=4) :: r, s
real(kind=8) :: p, q
i = 1
j = 4
if (dim (i, j) .ne. 0) call abort
if
www.eeworm.com/read/366702/2873297
f90 intrinsic_abs.f90
! Program to test the ABS intrinsic
program intrinsic_abs
implicit none
integer i
real(kind=4) r
real(kind=8) q
complex z
i = 42
i = abs(i)
if (i .ne. 42) call abort
i = -4
www.eeworm.com/read/366702/2873341
f90 where21.f90
! { dg-do run }
! Test fix for PR fortran/30207.
program a
implicit none
integer, parameter :: i(4) = (/ 1, 1, 1, 1 /)
integer :: z(4) = (/ 1, 1, -1, -1 /)
where(z < 0) z(:) = 1
if (any(z /=
www.eeworm.com/read/366702/2873384
f pr32583.f
subroutine detune(iv,ekk,ep,beta,dtu,dtup,dfac)
implicit real*8 (a-h,o-z)
parameter(npart=64,nmac=1)
parameter(nele=700,nblo=300,nper=16,
&nelb=100,nblz=20000,nzfz=300000,
www.eeworm.com/read/366702/2876207
f90 direct_io_8.f90
! { dg-do run }
! PR 34594 - this used to give runtime errors due to an
! end condition.
program main
implicit none
integer :: iou, i, ir, TEMP_CHANGES
i=44
ir = -42
open(11,file="foo.dat")
www.eeworm.com/read/366702/2876262
f90 parameter_array_dummy.f90
! { dg-do run }
! PR fortran/31188
program foo_mod
implicit none
character (len=1), parameter :: letters(2) = (/"a","b"/)
call concat(1, [1])
call concat(2, [2])
call concat(3, [1,2])
call