代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873265
f90 string.f90
! Program to test string handling
program string
implicit none
character(len=5) :: a, b
character(len=20) :: c
a = 'Hello'
b = 'World'
c = a//b
if (c .ne. 'HelloWorld') call abo
www.eeworm.com/read/366702/2873274
f90 elemental.f90
! Program to test elemental functions.
program test_elemental
implicit none
integer, dimension (2, 4) :: a
integer, dimension (2, 4) :: b
integer(kind = 8), dimension(2) :: c
a = resha
www.eeworm.com/read/366702/2873323
f90 pr23373-2.f90
program main
implicit none
real, dimension (:), pointer :: x
x => null ()
x => test ()
if (.not. associated (x)) call abort
if (size (x) .ne. 10) call abort
contains
function test()
www.eeworm.com/read/366702/2873395
f90 allocate.f90
! Snippet to test various allocate statements
program test_allocate
implicit none
type t
integer i
real r
end type
type pt
integer, pointer :: p
end type
integer,
www.eeworm.com/read/366702/2876027
f90 volatile3.f90
! { dg-do compile }
! { dg-shouldfail "Invalid use of VOLATILE" }
! Test whether volatile statements and attributes are
! properly error checked.
! PR fortran/29601
program volatile_test
implicit no
www.eeworm.com/read/366702/2876068
f90 deallocate_stat.f90
! { dg-do run }
! PR 17792
! PR 21375
! Test that the STAT argument to DEALLOCATE works with POINTERS and
! ALLOCATABLE arrays.
program deallocate_stat
implicit none
integer i
real, poi
www.eeworm.com/read/366702/2876272
f90 enum_8.f90
! { dg-do compile }
! Program to test the initialisation range of enumerators
! and kind values check
program main
implicit none
enum, bind (c)
enumerator :: pp, qq = 4294967295, rr ! { dg-e
www.eeworm.com/read/366702/2876330
f90 proc_decl_6.f90
! { dg-do compile }
! PR fortran/33945
!
! MODULE PROCEDURE in the interface was wrongly accepted
module modproc2
implicit none
interface
subroutine x
end subroutine x
end interface
pr
www.eeworm.com/read/366702/2876377
f90 initialization_2.f90
! { dg-do run }
! Vector subscripts, ranks and shapes of initialization expressions (PRs 29393,
! 29630 and 29679)
program test
implicit none
integer :: i, j
integer, parameter :: a(4,4,4
www.eeworm.com/read/366702/2876396
f90 reduction.f90
! { dg-do run }
! PR 16946
! Not all allowed combinations of arguments for MAXVAL, MINVAL,
! PRODUCT and SUM were supported.
program reduction_mask
implicit none
logical :: equal(3)
integer,