代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876892
f90 fmt_error_2.f90
! { dg-do compile }
! PR 33269: we used to not simplify format strings before checking if
! they were valid, leading to a missed error.
IMPLICIT CHARACTER*5 (h-z)
CHARACTER*5 f
CHARACTER*5 bad, good
www.eeworm.com/read/366702/2876965
f90 access_spec_2.f90
! { dg-do compile }
! { dg-options "-std=f95" }
! PR fortran/31472
! Access specifications: Invalid Fortran 95 code
module test
implicit none
integer, public :: x
public :: x ! { dg-error "was
www.eeworm.com/read/366702/2877036
f90 pr26246_2.f90
! PR fortran/26246
! { dg-options "-fdump-tree-original -fno-automatic" }
! { dg-do compile }
subroutine foo(string, n)
implicit none
integer :: n
character(len=n + 6), intent(in) :: string
i
www.eeworm.com/read/366702/2877039
f90 internal_readwrite_1.f90
! { dg-do run }
! PR 34565 - internal writes with negative strides
! didn't work.
program main
implicit none
integer :: i
integer :: lo, up, st
character(len=2) :: c (5)
integer, dimension(5
www.eeworm.com/read/366702/2877131
f90 random_5.f90
! { dg-do run }
! { dg-shouldfail "" }
!
program trs
implicit none
integer :: size
integer :: seed(50)
call test_random_seed(size,seed)
contains
subroutine test_random_seed(size, put, get)
www.eeworm.com/read/366702/2877410
f90 array_constructor_22.f90
! { dg-do compile }
! PR34990 ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842
! Test case that of the reporters.
module test
implicit none
contains
function my_string(x)
www.eeworm.com/read/366702/2877422
f90 pr25923.f90
! { dg-do compile }
! { dg-options "-O -Wuninitialized" }
module foo
implicit none
type bar
integer :: yr
end type
contains
function baz(arg) result(res) ! { dg-warning "res.yr' may be"
www.eeworm.com/read/366702/2877478
f90 private_type_7.f90
! { dg-do compile }
! PR32760 Error defining subroutine named PRINT
! Test case derived from original PR.
module gfcbug68
implicit none
private :: write
contains
function foo (i)
integer,
www.eeworm.com/read/366702/2877652
f90 array_constructor_7.f90
! Like array_constructor_6.f90, but test for nested iterators.
! { dg-do run }
program main
implicit none
call build (17)
contains
subroutine build (order)
integer :: order, i, j
call t
www.eeworm.com/read/366702/2877682
f90 pr17164.f90
! { dg-do run }
! pr17164
! index aborts when substring is longer than string
implicit none
character*5 x
integer i
x='12345'
i=index(x,'blablabl')
if (i.ne.0) call