代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523247
f90 der_init.f90
! Program to test derived type initializers and constructors
program der_init
implicit none
type t
integer :: i
integer :: j = 4
end type
integer :: m, n
! Explicit initial
www.eeworm.com/read/162614/5523295
f90 der_init_2.f90
! PR 15314
! We were looking at the type of the initialization expression, not the type
! of the field.
program der_init_2
implicit none
type foo
integer :: a(3) = 42
integer :: b = 123
www.eeworm.com/read/162614/5523314
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/162614/5523315
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/162614/5523323
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/162614/5523351
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/162614/5526076
f90 enum_8.f90
! { dg-do compile }
! Program to test the initialisation range of enumerators
! and kind values check
program main
implicit none
enum, bind (c) ! { dg-warning "New in Fortran 2003" }
enumer
www.eeworm.com/read/162614/5526290
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/340665/3272833
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/340665/3276818
f 10197.f
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FO