代码搜索:implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
www.eeworm.com/read/366702/2876575

f90 assumed_shape_ranks_2.f90

! { dg-do run } ! Tests the fix for the regression PR26716. ! Test contributed by Martin Reinecke ! module mod1 implicit none interface foo module procedure foo
www.eeworm.com/read/366702/2876615

f90 inquire_12.f90

! { dg-do compile } ! PR34722 ICE: left-over "@iostat" variable polutes namespace program gamsanal implicit none character :: tmp integer iodict logical dicexist inquire(unit=iodict, exist=dicexist) e
www.eeworm.com/read/366702/2876769

f90 proc_decl_7.f90

! { dg-do compile } ! PR33162 INTRINSIC functions as ACTUAL argument ! Test case adapted from PR by Jerry DeLisle module m implicit none contains subroutine sub(a) interf
www.eeworm.com/read/366702/2876819

f03 binding_c_table_15_1.f03

! { dg-do run } ! Test the named constants in Table 15.1. program a use, intrinsic :: iso_c_binding implicit none if (C_NULL_CHAR /= CHAR(0) ) call abort if (C_ALERT /= ACHAR(
www.eeworm.com/read/366702/2876838

f90 interface_20.f90

! { dg-do compile } ! PR33162 INTRINSIC functions as ACTUAL argument ! Test case adapted from PR by Jerry DeLisle module m implicit none contains subroutine sub(a) interf
www.eeworm.com/read/366702/2876858

f90 random_4.f90

! { dg-do run } ! program trs implicit none integer :: size, ierr integer, allocatable, dimension(:) :: seed, check call test_random_seed(size) allocate(seed(size),check(size)) call test_r
www.eeworm.com/read/366702/2876912

f90 auto_char_pointer_array_result_1.f90

! { dg-do run } ! Tests the fixes for PR25597 and PR27096. ! ! This test combines the PR testcases. ! character(10), dimension (2) :: implicit_result character(10), dimension (2) :: explicit_resul
www.eeworm.com/read/366702/2876979

f90 module_interface_2.f90

! { dg-do compile } ! Tests the fix for PR29464, in which the second USE of the generic ! interface caused an error. ! ! Contributed by Vivek Rao ! module foo_mod implicit none
www.eeworm.com/read/366702/2877010

f90 repeat_2.f90

! REPEAT intrinsic ! ! { dg-do run } subroutine foo(i, j, s, t) implicit none integer, intent(in) :: i, j character(len=i), intent(in) :: s character(len=i*j), intent(in) :: t if (repeat(s,
www.eeworm.com/read/366702/2877122

f90 shift-alloc.f90

! { dg-do run } ! PR 22144: eoshift1, eoshift3 and cshift1 used to lack memory ! allocation, which caused the writes to segfault. program main implicit none integer, dimension (:,:),allocatable ::