代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876210
f90 associated_4.f90
! { dg-do run }
! PR fortran/26801
implicit none
integer :: i
integer,target :: u
logical :: l
character(len=8) :: A
type dt
integer, pointer :: a => NULL()
end type dt
type(dt) :
www.eeworm.com/read/366702/2876323
f90 write_check.f90
! { dg-do run }
! { dg-shouldfail "Compile-time specifier checking" }
! Check keyword checking for specifiers
! PR fortran/29452
program test
implicit none
character(len=5) :: str
str = 'yes'
www.eeworm.com/read/366702/2876437
f90 vector_subscript_1.f90
! PR 19239. Check for various kinds of vector subscript. In this test,
! all vector subscripts are indexing single-dimensional arrays.
! { dg-do run }
program main
implicit none
integer, paramet
www.eeworm.com/read/366702/2876504
f90 direct_io_7.f90
! { dg-do run }
! PR 34405 - direct access prohibits ENDFILE, BACKSPACE and REWIND
program test
implicit none
integer :: ios
character(len=80) :: msg
open (95, access="direct", recl=4, status=
www.eeworm.com/read/366702/2876540
f90 transfer_simplify_4.f90
! { dg-do run }
! { dg-options "-O0" }
! Tests that the in-memory representation of a transferred variable
! propagates properly.
!
implicit none
integer, parameter :: ip1 = 42
logical, paramet
www.eeworm.com/read/366702/2876556
f90 namelist_50.f90
! { dg-do run }
! PR36657 Namelist string constant immediately followed by comment
program gfcbug79
implicit none
integer, parameter :: nnml = 10
character(len=8) :: model = ""
namelist /NML/
www.eeworm.com/read/366702/2876570
f90 allocate_zerosize_1.f90
! { dg-do run }
program main
implicit none
real, allocatable :: a(:), b(:,:)
integer :: n,m
character (len=2) :: one, two
one = ' 1'
two = ' 2'
allocate (a(1:-1))
if (size(a) /= 0) c
www.eeworm.com/read/366702/2876588
f90 entry_14.f90
! { dg-do run }
!
! PR fortran/34137
!
! Entry was previously not possible in a module.
! Checks also whether the different result combinations
! work properly.
!
module m1
implicit none
contains
f
www.eeworm.com/read/366702/2876759
f03 bind_c_usage_8.f03
! { dg-do compile }
! This should compile, though there is a warning about the type of len
! (return variable of strlen()) for being implicit.
! PR fortran/32797
!
MODULE ISO_C_UTILITIES
USE ISO_C_
www.eeworm.com/read/366702/2876941
f90 cray_pointers_7.f90
! { dg-do run }
! { dg-options "-fcray-pointer" }
! Test the implementation of Cray pointers to procedures.
program cray_pointers_7
implicit none
integer tmp
integer, external :: fn
external