代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/233448/4678835
f90 scalarize2.f90
! Program to test the scalarizer
program testarray
implicit none
integer, dimension (:, :), allocatable :: a, b
integer n
allocate(a(6, 5), b(6, 5))
a = 0
do n = 1, 5
a(4, n)
www.eeworm.com/read/233448/4678836
f90 dep_fails.f90
! This gives incorrect results when compiled with
! the intel and pgf90 compilers
Program Strange
Implicit None
Type Link
Integer, Dimension(2) :: Next
End Type Link
Integer, Parameter :: N =
www.eeworm.com/read/233448/4678843
f90 args.f90
! Program to test procudure args
subroutine test (a, b)
integer, intent (IN) :: a
integer, intent (OUT) :: b
if (a .ne. 42) call abort
b = 43
end subroutine
program args
implicit none
www.eeworm.com/read/233448/4678868
f90 parameter_2.f90
! Program to test initialization expressions involving subobjects
program parameter_2
implicit none
type :: SS
integer :: I
integer :: J
end type SS
type :: TT
integer :: N
t
www.eeworm.com/read/233448/4678885
f90 contained_3.f90
! Program to check using parent variables in more than one contained function
program contained_3
implicit none
integer var
contains
subroutine one
var = 1
end subroutine
subrouti
www.eeworm.com/read/233448/4681608
f90 inquire_6.f90
! { dg-do run }
!pr19313 - inquire(..pad=..)
implicit none
! logical debug
! data debug /.TRUE./
character*20 chr
chr=''
! not connected
inquire(7,pad=chr)
! if (
www.eeworm.com/read/233448/4685646
c redecl-5.c
/* Test for multiple declarations and composite types. Diagnosis of
incompatible implicit declaration. */
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options
www.eeworm.com/read/162614/5517610
c oper1.c
// { dg-do run }
// Copyright 2002 Free Software Foundation
// Contributed by Jason Merrill
// Make sure the GNU extension of accepting dropping cv-qualifiers for
// the implicit
www.eeworm.com/read/162614/5523228
f90 intrinsic_matmul.f90
! Program to test the MATMUL intrinsic
program intrinsic_matmul
implicit none
integer, dimension(2, 3) :: a
integer, dimension(3, 2) :: b
integer, dimension(2) :: x
integer, dimension(3
www.eeworm.com/read/162614/5523246
f90 strcmp.f90
program test
implicit none
character(len=20) :: foo
foo="hello"
if (llt(foo, "hello")) call abort
if (.not. lle(foo, "hello")) call abort
if (lgt("hello", foo)) call abort
if (.