代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873380
f90 enum_1.f90
! Program to test parsing of ENUM in different program units
program main
implicit none
interface
subroutine sub1
end subroutine sub1
end interface
integer :: i = 55
enum , bind (
www.eeworm.com/read/366702/2876047
f90 elemental_subroutine_5.f90
! { dg-do compile }
!
! PR fortran/33231
!
! Elemental function:
! Intent OUT/INOUT dummy: Actual needs to be an array
! if any actual is an array
!
program prog
implicit none
integer :: i, j(2)
call
www.eeworm.com/read/366702/2876081
f90 pr19928-1.f90
! PR 19928. Check the use of constant substring indexes in a
! scalarization loop.
! { dg-do run }
program main
implicit none
character (len = 5), dimension (2) :: a
character (len = 3), dimens
www.eeworm.com/read/366702/2876134
f90 der_pointer_4.f90
! { dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash
implicit none
type foo
integer :: i = 0
type (foo), pointer :: next
end type
www.eeworm.com/read/366702/2876146
f90 internal_readwrite_2.f90
! { dg-do run }
! PR 34565 - intenal writes with negative strides. This
! test case tries out a negative stride in a higher
! dimension.
program main
implicit none
integer :: i
integer, paramet
www.eeworm.com/read/366702/2876149
f90 exponent_1.f90
! { dg-do run }
! PR fortran/28276
! Original code submitted by Harald Anlauf
! Converted to Dejagnu for the testsuite by Steven G. Kargl
!
program gfcbug36
implicit none
real, parameter :: one =
www.eeworm.com/read/366702/2876173
f90 hollerith3.f90
! { dg-do compile }
! { dg-options "-w" }
! Program to test invalid Hollerith constant.
Program test
implicit none
integer i
i = 0H ! { dg-error "at le
www.eeworm.com/read/366702/2876400
inc use_only_3.inc
MODULE kinds
INTEGER, PARAMETER :: DP = selected_real_kind(14,200)
PRIVATE
PUBLIC :: DP
END MODULE kinds
MODULE constants
USE kinds, ONLY : DP
IMPLICIT NONE
SAVE
REA
www.eeworm.com/read/366702/2876411
f90 arrayio_1.f90
! { dg-do run }
! PR 21875 : Test formatted input/output to/from character arrays.
! Contributed by Jerry DeLisle .
program arrayio_1
implicit none
integer
www.eeworm.com/read/366702/2876530
f90 enum_5.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
integer :: i = 1
enum, bind (c)
enumerator :: red, black = i ! { dg-error "is a variable" }
enume