代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5522716
c typedef2.c
// { dg-do assemble }
// Testcase from Alexander Zvyagin
// Check implicit conversion from string constants into typedefs
typedef char CHAR;
void f2(CHAR *s="");
www.eeworm.com/read/162614/5523142
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/162614/5523147
f90 arraysave.f90
! Program to test arrays with the save attribute
program testarray
implicit none
integer, save, dimension (6, 5) :: a, b
a = 0
a(1, 1) = 42
a(6, 5) = 43
b(:,1:5) = a
call fn (a)
www.eeworm.com/read/162614/5523154
f90 function_module_1.f90
! This can fail because BB is not resolved correctly.
module M1
INTEGER p
CONTAINS
subroutine AA ()
implicit NONE
p = BB ()
CONTAINS
subroutine AA_1 ()
implicit NONE
integer :: i
www.eeworm.com/read/162614/5523172
f90 in-pack.f90
! Check in_pack and in_unpack for integer and comlex types, with
! alignment issues thrown in for good measure.
program main
implicit none
complex(kind=4) :: a4(5),b4(5),aa4(5),bb4(5)
real(k
www.eeworm.com/read/162614/5523186
f90 contained.f90
program contained
implicit none
integer i
i = 0;
call testproc (40)
if (i .ne. 42) call abort
contains
subroutine testproc (p)
implicit none
integer p
if (p .ne.
www.eeworm.com/read/162614/5523188
f90 mainsub.f90
! Program to test compilation of subroutines following the main program
program mainsub
implicit none
integer i
external test
i = 0
call test (i)
if (i .ne. 42) call abort
end progr
www.eeworm.com/read/162614/5523233
f90 strarray_3.f90
program strarray_3
character(len=5), dimension(2) :: c
c(1) = "Hello"
c(2) = "World"
call foo1(c)
call foo2(c, 2)
call foo3(c, 5)
call foo4(c, 5, 2)
call foo5(c(2:1:-1))
contains
s
www.eeworm.com/read/162614/5523234
f90 backspace.f90
! pr 15755
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
read(10,*)C
backspace(10
www.eeworm.com/read/162614/5523239
f90 forall_4.f90
! Program to test nested forall
program forall2
implicit none
integer a(4,4,2)
integer i, j, k, n
a(:,:,1) = reshape((/ 1, 2, 3, 4,&
5, 6, 7, 8,&