代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/233448/4678891
f90 arrayio.f90
! Program to test array IO. Should print the numbers 1-20 in order
program arrayio
implicit none
integer, dimension(5, 4) :: a
integer i, j
do j=1,4
a(:, j) = (/ (i + (j - 1) * 5,
www.eeworm.com/read/233448/4681519
f90 char_pointer_dummy.f90
! { dg-do run }
program char_pointer_dummy
! Test character pointer dummy arguments, required
! to fix PR16939 and PR18689
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
character*
www.eeworm.com/read/233448/4681531
f90 char_pointer_assign.f90
! { dg-do run }
program char_pointer_assign
! Test character pointer assignments, required
! to fix PR18890 and PR21297
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
character*4,
www.eeworm.com/read/233448/4681544
f90 der_array_1.f90
! { dg-do run }
! Test derived type constructors for derived types containing arrays.
! PR16919
program der_array_1
implicit none
integer n
integer m
! The 4 components here test known shape a
www.eeworm.com/read/233448/4681554
f90 boz_1.f90
! { dg-do run }
! Test the boz handling
program boz
implicit none
integer(1), parameter :: b1 = b'00000001'
integer(2), parameter :: b2 = b'0101010110101010'
integer(4), parameter :: b4
www.eeworm.com/read/233448/4681713
f90 direct_io_1.f90
! { dg-do run }
! PR 16908
! Segfaulted on second set of writes. We weren't handling partial records
! properly when calculating the file position.
program direct_io_1
implicit none
integer n, n
www.eeworm.com/read/229812/4745782
mif tdfiles.mif
# system independent compile-time files
tdovl1 = &
boot77.obj &
declare.obj &
fmacros.obj &
fmtemit.obj &
implicit.obj &
inout.obj &
option.obj &
proclist.
www.eeworm.com/read/183001/5260237
out sequence.out
---
--- test creation of SERIAL column
---
CREATE TABLE serialTest (f1 text, f2 serial);
NOTICE: CREATE TABLE will create implicit sequence "serialtest_f2_seq" for serial column "serialtest.f2"
I
www.eeworm.com/read/162614/5523240
f90 alternate_return.f90
program alt_return
implicit none
call myproc (1, *10, 42)
20 continue
call abort ()
10 continue
call myproc(2, *20, 42)
call myproc(3, *20, 42)
contains
subroutine myproc(n, *, i)
integ
www.eeworm.com/read/162614/5523270
f90 intrinsic_bitops.f90
! Program to test intrinsic bitops
program intrinsic_bitops
implicit none
integer(kind=4) :: i, j, k, o, t
integer(kind=8) :: a, b, c
o = 0
i = 2
j = 3
k = 12
if (.not. btest