代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876169
f90 empty_type.f90
! { dg-do compile }
! PR fortran/34202
! ICE on contruction of empty types
! Testcase contributed by Tobias Burnus
program bug4a
implicit none
type bug4
! Intentionally left empty
end type
www.eeworm.com/read/366702/2876204
f90 entry_16.f90
! { dg-do run }
! Tests the fix for PR33499 in which the ENTRY cx_radc was not
! getting its TYPE.
!
! Contributed by Michael Richmond
!
MODULE complex
IMPLICIT NONE
www.eeworm.com/read/366702/2876221
f90 auto_char_len_3.f90
! { dg-do run }
! Test the fix for PR26257, in which the implicit reference to
! chararray in the main program call of chararray2string would
! cause a segfault in gfc_build_addr_expr.
!
! Based on th
www.eeworm.com/read/366702/2876233
f90 volatile5.f90
! { dg-do compile }
! { dg-options "-O3 -fdump-tree-optimized" }
! Tests whether volatile really works with modules
! PR fortran/29601
module volmod
implicit none
integer, volatile :: a
logical
www.eeworm.com/read/366702/2876319
f90 enum_9.f90
! { dg-do run }
! { dg-options "-fshort-enums" }
! Program to test enumerations when option -fshort-enums is given
program main
implicit none
enum, bind (c)
enumerator :: red, black = 127
www.eeworm.com/read/366702/2876322
f90 equiv_constraint_9.f90
! { dg-do compile }
!
! PR fortran/34655
!
! Check for F2003's 5.5.2.5 Restrictions on common and equivalence
! Test case contributed by Joost VandeVondele.
!
implicit none
type data_type
sequence
i
www.eeworm.com/read/366702/2876363
f90 endfile_2.f90
! { dg-do run }
! pr18778 abort on endfile without opening unit
program test
implicit none
integer i
endfile(8)
rewind(8)
read(8,end=0023)i
call abort ! shou
www.eeworm.com/read/366702/2876390
f90 pure_byref_1.f90
! { dg-do run }
! PR 22607: PURE/ELEMENTAL return-by-reference functions
program main
implicit none
character(2), dimension(2) :: a, b
a = 'ok'
b = fun(a)
if (.not.all(b == 'ok')) call abort
www.eeworm.com/read/366702/2876445
f90 alloc_comp_basics_3.f90
! { dg-do compile }
! Test the patch for PR30202 in which the INTENT(OUT)
! caused an ICE.
!
! Contributed by Salvatore Filippone
!
program class_scal_p
implicit none
type
www.eeworm.com/read/366702/2876487
f90 derived_comp_array_ref_4.f90
! { dg-do run }
! Tests the fix for PR33376, which was a regression caused by the
! fix for PR31564.
!
! Contributed by Harald Anlauf
!
module foo
implicit none
public chk
type