代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877003
f90 getenv_1.f90
! { dg-do run }
! Test the getenv and get_environment_variable intrinsics.
! Ignore the return value because it's not supported/meaningful on all targets
program getenv_1
implicit none
character(l
www.eeworm.com/read/366702/2877017
f90 pr33646.f90
! { dg-do compile }
! PR fortran/33646
!
!
module BAR_MODULE
implicit none
private
public create_
interface create_
module procedure create
end interface
type system_type
www.eeworm.com/read/366702/2877061
f warnings_are_errors_1.f
! { dg-do compile }
! { dg-options " -Werror" }
! PR fortran/21061
! gfortran ignores -Werror
! fixed-form tests
program warnings_are_errors_1
implicit none
integer(kind=1) :: i
www.eeworm.com/read/366702/2877095
f substr_3.f
! { dg-do run }
! Check that substrings behave correctly even when zero-sized
implicit none
character(len=10) :: s, t
integer :: i, j
s = "abcdefghij"
t(:10) = s(1:)
www.eeworm.com/read/366702/2877150
f90 char_pointer_dependency.f90
! { dg-do run }
! Test assignments from character pointer functions with dependencies
! are correctly resolved.
! Provided by Paul Thomas pault@gcc.gnu.org
program char_pointer_dependency
implicit n
www.eeworm.com/read/366702/2877318
f90 repeat_4.f90
! REPEAT intrinsic -- various checks should be enforced
!
! { dg-do compile }
program test
implicit none
character(len=0), parameter :: s0 = ""
character(len=1), parameter :: s1 = "a"
charact
www.eeworm.com/read/366702/2877341
f90 fmt_read_2.f90
! { dg-do compile }
! PR fortran/32483
implicit none
integer :: r
real :: a
write (*,'(i0)') r
read (*,'(i0)') r ! { dg-warning "Positive width required" }
read (*,
www.eeworm.com/read/366702/2877375
f90 pr26246_1.f90
! PR fortran/26246
! { dg-options "-fdump-tree-original" }
! { dg-do compile }
module pr26246_1
implicit none
contains
function foo(string)
character(*), intent(in) :: string
characte
www.eeworm.com/read/366702/2877425
f90 pointer_assign_4.f90
! { dg-do run }
!
! Verify that the bounds are correctly set when assigning pointers.
!
! PR fortran/33139
!
program prog
implicit none
real, target :: a(-10:10)
real, pointer :: p(:),p2(:)
in
www.eeworm.com/read/366702/2877428
f90 enum_1.f90
! { dg-do run }
! Program to test ENUM parsing
program main
implicit none
enum, bind (c)
enumerator :: red, black
enumerator blue
end enum
if (red /= 0) call abort
end program main