代码搜索: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 ::